How Can a DataGrid Using a DataGridView and a Query String as a Source While Keeping the Grids properties?

You are passing a DataGrid to a function which is expecting a DataGridView. Why?

Thanks for the quick reply.

My naming of the Class is DataGrid. What I am passing is a dataGridView control to a DataGridView parameter (please see image to verify this the type of  dtgrdProcessFP).

Sorry about that. I see haw that could confuse. Any ideas on how to correct the re-population issue?

(Error for last argument in method call corrected)

'Error for last argument for method call corrected:

Dim clsDataGrid As New DataGrid
clsDataGrid.FillGrid(dtgrdProcessFP, gc_SelectFieldPickRequest & "bob.lhnd")

Select allOpen in new window

Type.jpg

you can actually reference the columns by their names rather than their indexes, i.e

       ............
        'you can set the captions on specific columns here
        tbl.Columns("stname").Caption = "Street Name"
        tbl.Columns("Description").Caption = "Borough"
        .........
        Grid.DataSource = tbl
        'here you can hide specific columns
        Grid.Columns("segId").Visible = False
        ..........

Select allOpen in new window

Thank you for the examples, nepaluz.

1. I tried your example and got an error "Object reference not set to an instance of an object." on tbl.Columns("RequestID").Caption = "Request ID"

2. I tried a variation on your example and get  "Object reference not set to an instance of an object." on Grid.Columns("RequestID").Name = "colSR_RequestID" The DataGridView was created by dragging it from the Toolbox. It is passed to Grid.FillGrid by Ref. I am not certain why it should give this exception.  Also tried it without Grid.Rows.Clear() with same result, and so on.

Any ideas?

-Bob

1. 
Public Class DataGrid
    Public Sub FillGrid( _
        ByRef Grid As System.Windows.Forms.DataGridView, _
        ByVal strQuery As String)

        Grid.DataSource = Nothing
        Grid.Rows.Clear()

        Dim tbl As New DataTable
        Dim da As New SqlServerCe.SqlCeDataAdapter(strQuery, gc_ConnString)

        'you can set the captions on specific columns here
        tbl.Columns("RequestID").Caption = "Request ID" '<<<
        da.Fill(tbl)
        Grid.DataSource = tbl

        'here you can hide specific columns
        Grid.Columns("Request ID").Visible = False
    End Sub
End Class

2.
Public Class DataGrid
    Public Sub FillGrid( _
        ByRef Grid As System.Windows.Forms.DataGridView, _
        ByVal strQuery As String)

        Grid.DataSource = Nothing
        Grid.Rows.Clear()

        Dim tbl As New DataTable
        Dim da As New SqlServerCe.SqlCeDataAdapter(strQuery, gc_ConnString)
        da.Fill(tbl)
        Grid.DataSource = tbl

        tbl.Columns("RequestID").Caption = "Request ID" '<<<

        Grid.Columns("RequestID").Name = "colSR_RequestID"
        Grid.Columns("RequestID").Visible = True
        Grid.Columns("RequestID").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    End Sub
End Class

Select allOpen in new window

I can only assume that the column named RequestID does not exist from the error message. Try putting a conditional statement......

If tbl.Columns.Contains("RequestID") Then tbl.Columns("RequestID").Caption = "Request ID" '<<<

Select allOpen in new window

Ok, I'll do that. Thanks.

Thank you, nepaluz. I created a dedicated method for each grid. For datagrid propeties the datagrid column name was used. It works perfectly!

-Bob

Public Sub FillFieldPickupGrid(ByRef Grid As System.Windows.Forms.DataGridView)
        Dim strQuery As String = gc_SelectFieldPickRequest & gv_SegmentID & gc_OrderBy & "bob.lhnd"

        Dim tbl As New DataTable
        Dim da As New SqlServerCe.SqlCeDataAdapter(strQuery, gc_ConnString)

        da.Fill(tbl)

        tbl.Columns("LHND").Caption = "House Number"
        tbl.Columns("STNAME").Caption = "Street Name"
        tbl.Columns("Description").Caption = "Borough"
        tbl.Columns("DESCRIPTION").Caption = "Status"
        tbl.Columns("SEGID").Caption = "SegmentID"

        Grid.DataSource = tbl

        Grid.Columns("colFP_HouseNumber").Visible = True
        Grid.Columns("colFP_HouseNumber").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells

        Grid.Columns("colFP_StreetName").Visible = True
        Grid.Columns("colFP_StreetName").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells

        Grid.Columns("colFP_Status").Visible = False
        Grid.Columns("colFP_Status").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells

        Grid.Columns("colFP_SeqmentID").Visible = False
        Grid.Columns("colFP_SeqmentID").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    End Sub

Select allOpen in new window

I looked at the code again and the error was due to setting the captions on the columns BEFORE filling the table. I see you corrected that.

You can additionally improve the class by having a key-value collection (dictionary) to hold the column & caption names (passing them to the class if desired?), and assigning the values through a list intersect. (just some obiter dicta....)

On the whole, pleased to have helped you!

Hi. I just discussed with my manager what you suggested. I will do that before the next project.

Thanks again.