[abohamad]

السلام عليكم ممكن يساعدك هذا
Try
With Me
DataGridView1.Rows.Clear()
For i As Integer = 0 To srcon.bd.Count - 1
Dim a As Integer = Me.DataGridView1.Rows.Add
'===========================================================
DataGridView1.Rows.Item(a).Cells(0).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("ID").ToString
DataGridView1.Rows.Item(a).Cells(1).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Order_number").ToString
DataGridView1.Rows.Item(a).Cells(2).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("ADD_date").ToString
DataGridView1.Rows.Item(a).Cells(3).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Quantity").ToString
DataGridView1.Rows.Item(a).Cells(4).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Price").ToString
DataGridView1.Rows.Item(a).Cells(5).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Document_num").ToString
DataGridView1.Rows.Item(a).Cells(6).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Selling_price").ToString
DataGridView1.Rows.Item(a).Cells(7).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("RSelling_price").ToString
DataGridView1.Rows.Item(a).Cells(8).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Store").ToString
DataGridView1.Rows.Item(a).Cells(9).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("Balance").ToString
DataGridView1.Rows.Item(a).Cells(11).Value = srcon.rs.Tables("View_Inventory_data").Rows(srcon.bd.Position)("item_id").ToString
'==========================================================================Document_num
srcon.bd.Position = srcon.bd.Position + 1
Next
End With
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try