Я здесь новый, поэтому простите меня, если это неправильный раздел для моего вопроса. Моя проблема в том, что я не могу заполнить datgrid содержимым набора данных. Пробыв последние несколько дней, чтобы попытаться разрешить это, я отказался и подумал, что я попробую здесь. Я использую VB 2010 VB.Net, и это приложение WPF Как вы можете сказать из кода, я очень к этому знаком, и любые предложения по улучшению будут наиболее желанными. Я вижу, что набор данных заполнен ок с помощью визуализатора, у меня есть datagrid 'dgBOM', который я хочу отобразить результаты. Популярным решением в моих поисках было добавить '.DataSource', но когда я набираю '.' после dgBOM параметр Datasource отсутствует.Как заполнить WPat Datagrid из Datatable?
Любая помощь будет высоко оценена.
спасибо.
Код:
Public Sub Connect()
Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim drow As DataRow
Dim PartColumn As DataColumn
Dim CostColumn As DataColumn
dt = New DataTable("BOM")
ds = New DataSet("BOM")
PartColumn = New DataColumn("PartNo")
CostColumn = New DataColumn("Cost")
da = Nothing
cn = Nothing
dr = Nothing
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\Ls-wtgl834\share\Adrian\PriceLists\WAP-PriceLists.mdb;User ID=Admin")
cn.Open()
cmd = New OleDbCommand("select * from Inventory", cn)
dr = cmd.ExecuteReader
da = New OleDbDataAdapter(cmd)
dt.Columns.Add(PartColumn)
dt.Columns.Add(CostColumn)
While dr.Read()
If dr(0) = FBladeExtNo Then
FrontBladeCost = dr(1)
drow = dt.NewRow()
drow("PartNo") = FBladeExtNo
drow("Cost") = FrontBladeCost
dt.Rows.Add(drow)
ds.Tables.Add(dt)
Exit While
End If
End While
dgBOM.ItemsSource = ds
Catch
End Try
dr.Close()
cn.Close()
End Sub