Does anyone have code, or know where I can find some, or can explain how to bind a DataGrid to an Array?

Thank you,

p

Following are the code functions and subs you will need...

Functions to create dataset and rows...
Private Function CreateDataSet() As DataSet
Dim ds As DataSet = New DataSet("Messages")
ds.Tables.Add(CreateMyTable)
Return ds
End Function

Private Function CreateMyTable() As DataTable
Dim SearchResults As DataTable = New DataTable("SearchResults")
SearchResults.Columns.Add(New DataColumn("ItemID", GetType(Integer)))
SearchResults.Columns.Add(New DataColumn("Name", GetType(String)))
SearchResults.Columns.Add(New DataColumn("LongDesc", GetType(String)))
SearchResults.Columns.Add(New DataColumn("ShortDesc", GetType(String)))
SearchResults.Columns.Add(New DataColumn("Image", GetType(String)))
Return SearchResults
End Function

Sub Routine to add row of data to dataset:

Dim myDataset As DataSet = CreateDataSet()
'Add a loop here
Do while loop = true
Dim dataRow As dataRow = myDataset.Tables("SearchResults").NewRow
dataRow("ItemID") = Array(0)
dataRow("Name") = Array(1)
dataRow("LongDesc") = Array(2)
dataRow("ShortDesc") = Array(3)
dataRow("Image") = Array(4)
myDataset.Tables("SearchResults").Rows.Add(dataRow)
end loop


Then you will want to bind the dataset to the datagrid....


Dim myDataView As New DataView()
myDataView.Table = myDataset.Tables("SearchResults")
MydataGrid.CurrentPageIndex = 0
MydataGrid.DataSource = myDataView
MydataGrid.DataBind()



Hope this helps