Need Help With A DataGridView Problem

Question

I need help with a DataGridView application, can't find an answer to this particular problem online. In my application, a user selects an order number from a combo box and the software reaches out to a database to retrieve the record and it's associated order items. The data is displayed to the form's text boxes, etc. and the order items are supposed to be displayed in a DataGridView control - but this isn't working. The code for this is below.

Structure cGridItem
    Dim Qty As Integer
    Dim Desc As String
    Dim Cost As Decimal
    Dim Price As Decimal
    Dim Shipdate As Date
End Structure

Dim GridList As New BindingList(Of cGridItem)

GridList.Add(New cGridItem With {.Qty = 1, .Desc = "hello", .Cost = 3.14, .Price = 4.56, .Shipdate = Now})
GridList.Add(New cGridItem With {.Qty = 3, .Desc = "peace", .Cost = 6.78, .Price = 8.9, .Shipdate = Now})
GridList.Add(New cGridItem With {.Qty = 5, .Desc = "please", .Cost = 3, .Price = 4, .Shipdate = Now})

ItemGrid.DataSource = GridList


Normally, this would iterate through all the order item records to create a GridList but here I hardcoded three fixed "records" to display. The DataGridView, named "ItemGrid", shows three new rows but with no data in the cells. I can change the number of GridList items and the ItemGrid will display the correct number of rows but with empty cells. This is driving me crazy, thanks for any help.

Answer 1

Hi

Slight changes to your code. The example below works fine.

' Form1 with blnk DataGridView1
Option Strict On
Option Explicit On
Public Class Form1
	Dim GridList As New BindingSource
	Class cGridItem
		Property Qty As Integer
		Property Desc As String
		Property Cost As Decimal
		Property Price As Decimal
		Property Shipdate As Date
	End Class
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		GridList.Add(New cGridItem With {.Qty = 1, .Desc = "hello", .Cost = 3.14D, .Price = 4.56D, .Shipdate = Now})
		GridList.Add(New cGridItem With {.Qty = 3, .Desc = "peace", .Cost = 6.78D, .Price = 8.9D, .Shipdate = Now})
		GridList.Add(New cGridItem With {.Qty = 5, .Desc = "please", .Cost = 3, .Price = 4, .Shipdate = Now})

		DataGridView1.DataSource = GridList

	End Sub
End Class