FlexGrid Problem

[mobdoc]

Hello,

I have this method that accepts sqlcommand (string) and FlexGrid, I want to populate the flexGrid with the result of the sql command, as shown below.

Problem is, it gives me an error.


Public Sub FillFlexGrid(ByVal sqlcmd As String, ByVal Flxgrid As VSFlex8U.VSFlexGrid)
Dim tmpTable As DataTable
dim rw as integer = 0
dim cl as integer = 0
Try
con.Open()
Dim dtset As New DataSet
Dim dtad As SqlDataAdapter = New SqlDataAdapter(sqlcmd, con)
dtad.Fill(dtset, "tmpTable")
tmpTable = dtset.Tables("tmpTable")

For Each row As DataRow In tmpTable.Rows
For Each col As DataColumn In tmpTable.Columns
With Flxgrid
.TextMatrix(rw, cl) = row(col)
cl += 1
End With
rw += 1
Next
Next
Catch ex As SqlException
MessageBox.Show(ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
End Sub



thanks....

[.paul.]

shouldn't it be:

For Each row As DataRow In tmpTable.Rows
     For Each col As DataColumn In tmpTable.Columns 
          With Flxgrid
              .TextMatrix(rw, cl) = row(col)
              cl += 1 
          End With
     Next
     rw += 1
     cl = 0
Next

what error are you getting?

[mobdoc]

Private Sub btnShowApplicants_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowApplicants.Click
Dim db As New CntrlLinkDbase
Dim sqlcmd As String = " SELECT * from VwApplicant Order by Lastname"

db.FillFlexGrid(sqlcmd, flxGrids) ' <-- Here is the Error

End Sub

=========================================================
Error Message
Unable to cast object of type 'AxVSFlex8U.AxVSFlexGrid' to type 'VSFlex8U.VSFlexGrid'.
=========================================================



Public Sub FillFlexGrid(ByVal sqlcmd As String, ByVal Flxgrid as VSFlex8U.VSFlexGrid)
Dim tmpTable As DataTable
Dim rw As Integer = 0
Dim cl As Integer = 0
Try
con.Open()
Dim dtset As New DataSet
Dim dtad As SqlDataAdapter = New SqlDataAdapter(sqlcmd, con)
dtad.Fill(dtset, "tmpTable")
tmpTable = dtset.Tables("tmpTable")

For Each row As DataRow In tmpTable.Rows
For Each col As DataColumn In tmpTable.Columns
'FlexAdjustment.TextMatrix(FlexAdjustment.Row, 2)
With Flxgrid
.TextMatrix(rw, cl) = row(col) '<---- Error is here when step
cl += 1
End With
rw += 1
cl = 0
Next
Next
Catch ex As SqlException
MessageBox.Show(ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
End Sub


thanks

[mobdoc]

is there in anyway a style of passing an flexgrid object and sqlcommand (string) to a method then populate that flexgrid?


thanks

[.paul.]

try

Public Sub FillFlexGrid(ByVal sqlcmd As String, ByVal Flxgrid as AxVSFlex8U.AxVSFlexGrid)
    'etc

[mobdoc]

That's how I did in my Method, see above Method Definition...


Private Sub btnShowApplicants_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowApplicants.Click
Dim db As New CntrlLinkDbase
Dim sqlcmd As String = " SELECT * from VwApplicant Order by Lastname"

db.FillFlexGrid(sqlcmd, flxGrids) ' <-- Here is the Error Type Cast Error

End Sub

=========================================================
Error Message
Unable to cast object of type 'AxVSFlex8U.AxVSFlexGrid' to type 'VSFlex8U.VSFlexGrid'.
=========================================================


Thanks

[.paul.]

in your method you're using

ByVal Flxgrid as VSFlex8U.VSFlexGrid

which should be

ByVal Flxgrid as AxVSFlex8U.AxVSFlexGrid

[mobdoc]

Thanks, Got it...

by the way, how can I add row and Column at runtime?

For Each row As DataRow In tmpTable.Rows
For Each col As DataColumn In tmpTable.Columns
With Flxgrid
If IsDBNull(row(col)) Then
.set_TextMatrix(rw, cl, "")
Else
.set_TextMatrix(rw, cl, row(col))
End If
cl += 1
End With
Next
cl = 1
rw += 1
Next


thanks .paul

[.paul.]

you have to set the flexgrid .col + .row then read each cell in your table and use the flexgrid.text property to put the values in the flexgrid cells.
i'm not sure what .set_TextMatrix does, but i don't think you need it.

[mobdoc]

the .set_TextMatrix(rw, cl, row(col)) put values to a specified cel in the flex,

the flexgrid.text accepts only string theres no row and column argument.





For Each row As DataRow In tmpTable.Rows
For Each col As DataColumn In tmpTable.Columns
With Flxgrid
If IsDBNull(row(col)) Then
.set_TextMatrix(rw, cl, "")
Else
.set_TextMatrix(rw, cl, row(col))
End If
cl += 1
.Cols = cl '<--- I try this to add new columns but has error
End With
Next
cl = 1
rw += 1
Flxgrid.Rows = rw '<--- Same with this
Next


Thanks

[.paul.]

i see the problem now. what you're doing is setting the number of columns in your loop which means cols = 1, cols = 2, cols = 10. then when you get to the new row, cols = 0.

try this before the loop

Flxgrid.cols = tmpTable.Columns.count
Flxgrid.rows = tmpTable.Rows.count

then remove the resizing code from the loop

[mobdoc]

@.paul.


Now it all works fine...


Thanks...