[atef_020]

(10-07-18, 09:52 PM)ملهمـ كتب :

(10-07-18, 06:02 PM)atef_020 كتب :

(10-07-18, 12:51 PM)atef_020 كتب : اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

لم ترد اخى ملهم على سوالى

ضع الكود أخي الكريم

دا الكود اخى الكريم 
مش عارف استدعى الفاتورة من البحث  لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها 

PHP كود :

Sub SHOW_DETAILES(ByVal CODE_ As String)
        '=========== ربط رأس الفاتورة =============
        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
            Quant.Text = DR!Total_QNT
            Dim DS As New DataSet

            '=========== ربط تفاصيل الفاتورة =============
            DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE =  val('" & CODE_ & "')", con)
            DS = New DataSet
            DA.Fill(DS)
            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("QTY")
                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")
            Next
            BUTTDELETE.Enabled = True
            BUTTSAVE.Enabled = False

        End If
    End Sub