У меня есть представление данных (с источником привязки, деталь от мастера), которое заполняется программно из средства чтения данных. Datareader успешно извлекает все данные и добавляет новые строки в источник привязки. Однако в datagridview отображается только одна строка. Таким образом, в datagridview отображается последняя строка из средства чтения данных.
Когда я нажимаю кнопку «Назад» в навигаторе привязки (мастера), а затем «Далее», все строки отображаются в представлении сетки данных, как если бы он обновлял источник привязки и привязывал каждую строку к каждой строке представления сетки данных. Я знаю, что мне чего-то здесь не хватает, но не уверен, что именно.
Private Sub PopulateDetails(ByVal orderno As String)
Dim cmd As New SqlClient.SqlCommand
Dim dr As SqlClient.SqlDataReader
LoadDB()
If Not con.State = ConnectionState.Open Then
con.Open()
End If
cmd.CommandText = "select orderid, pono, cono, styleno, fabriccodeid, custfabriccode, colorid, orderqty, totalbales, uomid, width, " &
"weightperarea, yard, gramperyard, size, unitprice, currencycode, deliverydt, remark from tblorderdetails " &
"where orderno = @orderno;"
cmd.Connection = con
cmd.Prepare()
cmd.Parameters.AddWithValue("@orderno", orderno)
dr = cmd.ExecuteReader
With dr
If .HasRows() Then
Dim newRow As DataRowView
While .Read
newRow = DirectCast(TblorderdetailsBindingSource.AddNew(), DataRowView)
newRow.BeginEdit()
newRow.Row.BeginEdit()
newRow.Row("orderno") = OrdernoTextBox.Text
newRow.Row("pono") = .Item("pono")
newRow.Row("cono") = .Item("cono")
newRow.Row("styleno") = .Item("styleno")
newRow.Row("fabriccodeid") = .Item("fabriccodeid")
newRow.Row("custfabriccode") = .Item("custfabriccode")
''newRow("btncolor") = .Item("colorid")
newRow.Row("orderqty") = .Item("orderqty")
newRow.Row("totalbales") = .Item("totalbales")
newRow.Row("uomid") = .Item("uomid")
newRow.Row("width") = .Item("width")
newRow.Row("weightperarea") = .Item("weightperarea")
newRow.Row("yard") = .Item("yard")
newRow.Row("gramperyard") = .Item("gramperyard")
newRow.Row("size") = .Item("size")
newRow.Row("unitprice") = .Item("unitprice")
newRow.Row("currencycode") = .Item("currencycode")
newRow.Row("deliverydt") = .Item("deliverydt")
newRow.Row("remark") = .Item("remark")
newRow.Row.EndEdit()
newRow.DataView.Table.Rows.Add(newRow.Row)
End While
End If
.Close()
End With
con.Close()
End Sub