[elgokr]

تفضل اخى الكريم

كل ما عليك استبدال Sub الخاص بـ SHOW_DETAILES الموجود بالفورم FrSell بالكود التالى

كود :

   Sub SHOW_DETAILES(ByVal CODE_)
       '=========== ربط رأس الفاتورة =============
       Dim DT As New DataTable
       Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM SEL_HED WHERE BUYCODE = val('" & CODE_ & "')", con)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("يرجى التأكد من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
       Else
           Dim DR = DT.Rows(0)
           TXTID.Text = DR!BUYCODE
           BUYTYPE.Text = DR!BUYTYPE
           TXTN_SUPL.Text = DR!SUPL
           DateTimePicker1.Value = DR!SEL_DATE
           TXTMan.Text = DR!SEL_MAN
           NOTES.Text = DR!NOTES
           TXT_TOTLA2.Text = DR!TOTAL
           TXTINVO.Text = DR!ID_INVO

           'Dim DS As New DataSet
           Dim DT_ As New DataTable
           DT_.Clear()
           '=========== ربط تفاصيل الفاتورة =============
           DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", con)
           'DS = New DataSet
           DA.Fill(DT_)
           'DT = DS.Tables(0)
           'For I = 0 To DT.Rows.Count - 1
           '    dgv.Rows.Add()
           '    dgv.Rows(I).Cells(0).Value = DT.Rows(I).Item("Code")
           '    dgv.Rows(I).Cells(1).Value = DT.Rows(I).Item("Name")
           '    dgv.Rows(I).Cells(2).Value = DT.Rows(I).Item("Price")
           '    dgv.Rows(I).Cells(3).Value = DT.Rows(I).Item("Unit")
           '    dgv.Rows(I).Cells(4).Value = DT.Rows(I).Item("Quant")
           '    dgv.Rows(I).Cells(5).Value = DT.Rows(I).Item("Cost_Unit")
           '    dgv.Rows(I).Cells(6).Value = DT.Rows(I).Item("Total")
           '    dgv.Rows(I).Cells(7).Value = DT.Rows(I).Item("DS")
           '    dgv.Rows(I).Cells(8).Value = DT.Rows(I).Item("Tax")
           '    dgv.Rows(I).Cells(9).Value = DT.Rows(I).Item("Stock")
           '    dgv.Rows(I).Cells(10).Value = DT.Rows(I).Item("Stock")
           'Next
           dgv.DataSource = DT_
           dgv.Refresh()
           BUTTDELETE.Enabled = True
           BUTTSAVE.Enabled = False
       End If
   End Sub

وسامحنى لعدم وجود صورة لتاكيد الكود

بسبب لا استخدم الكريستال على الجهاز

ملحوظة: تاكد ان قيمة CODE_ هو رقم 20 بنائاً على قاعدة البيانات

حيث ان العامل بين الجدولين هو رقم 20 الموجود فى كل من الجدولين

حتى تتمكن من اختبار وعرض البيانات بصورة صحيحة

تحياتى لك

وتمنياتى لك التوفيق