[atefkhalf2004]

If objconn.State = ConnectionState.Closed Then objconn.Open()
        Dim myds As New DataSet
        myds = New DataSet
        Sql = "SELECT * FROM adinvodet WHERE invono=  " & Val(TextBox1.Text) & " "
        Dp = New OleDbDataAdapter(Sql, objconn)
        Dp.Fill(myds, "adinvodet")


        For Each r As DataRow In myds.Tables("adinvodet").Rows
            Dim newRow = tempTable.NewRow()
            newRow("كود الصنف") = r("itcod")
            newRow("رقم الصنف") = r("makas")
            newRow("اسم الصنف") = r("invsun")
            newRow("الوحدة") = r("invunit")
            newRow("الكمية") = r("invqu")
            newRow("السعر") = r("invprc")
            newRow("الاجمالي") = r("invsal")
            '    newRow("invono") = r("invono")
            newRow("المجموعة") = r("gname")
            newRow("الشركة") = r("company")
            'newRow("sup_no") = r("sup_no")
            newRow("الخصم") = r("percentage")
            tempTable.Rows.Add(newRow)

        Next

        Me.DataGridView2.AutoGenerateColumns = False
        Me.DataGridView2.AllowUserToResizeColumns = False
        Me.DataGridView2.DataSource = tempTable


هذا كود عرض الفاتورة     اتمني احد يعرض حل افهمه واطبقة  ويستفيد منه الجميع بما فيهم انا

---

الاستاذ سعود 
الحل الذي وضعته حضرتك  اقرب الحلول
لكن هل هو يصلح لعنصرين فقط   ؟؟؟
بفرض ان عدد الاصناف داخل الفاتورة اكثر من صنفين  ؟؟؟؟
ما الحل

---

كان هناك مشاركة للاخ سعود  اين هي

---

انا فعلا تعبت  كان هناك مشاركة  للاخ سعود  اين ذهبت