بيانات الجريد من الجدول

السادة الافاضل

استعلم عن اصناف فاتورة واحب ان اضيفها في الجريد

كتبت هذه الاكواد

لكن

لا توجد بيانات في الجريد اي خالية

وعدد السطور فيها ضعف العدد الحقيقي

اتمني ان اعرف الخطأ

شكرا

SQLs = "Select * From invodet Where invono =" & Val(TextBox2.Text) & ""

Ds = New DataSet

Dp = New OleDbDataAdapter(SQLs, objconn)

Dp.Fill(Ds, "invodet")

MsgBox(Ds.Tables("invodet").Rows.Count)

For I = 0 To Ds.Tables("invodet").Rows.Count - 1

For Each row2 As DataRow In Ds.Tables("invodet").Rows

row2 = tempTable.NewRow

Me.DataGridView1.Rows(I).Cells(0).Value = row2(0) 'كود لصنف

Me.DataGridView1.Rows(I).Cells(1).Value = row2(1) ' اسم لصنف

Me.DataGridView1.Rows(I).Cells(2).Value = row2(2) 'الكمية

Me.DataGridView1.Rows(I).Cells(3).Value = row2(3) ' السعر

Me.DataGridView1.Rows(I).Cells(3).Value = row2(4) ' الاجمالي

tempTable.Rows.Add(row2)

Next row2

Next I

Me.DataGridView1.DataSource = tempTable