[elgokr]

(15-05-18, 03:23 AM)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


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

---

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

---

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

---

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

انت تعبت حالك اخى الفاضل

الامر يحتاج لعملية تركيز وليس استعجال

والمشكلة الاكبر انت تعطى نصف المعلومة وتريد منا الحل

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

القى نظرة على السطر التالى

كود :

Sql = "SELECT * FROM adinvodet WHERE invono=  " & Val(TextBox1.Text) & " "

كل ما هو عليك فعله تغييره بالتالى

كود :

SELECT bill_id = MAX(bill_id)
    ,id_acc
    ,add_data = MAX(add_data)
    ,credit_acc = sum(credit_acc)
    ,value_added = MAX(value_added)
    ,total_bill = MAX(total_bill)
    ,quantity_bill = MAX(quantity_bill)
    ,ratio_add = MAX(ratio_add)
    ,id_qaid = MAX(id_qaid)
    ,username = MAX(username)
    ,notepin = MAX(notepin)
FROM bill_data
GROUP BY id_acc
ORDER BY bill_id

كل ما هو عليك تغيير اسماء حقول الجدول باللى موجود فى الكود الاعلى

انا عملت الكود على قاعدة بيانات لدى تاكيد من صحة كتابة الكود وانه يعمل بصورة صحيحة

وكان لدى فى الجدول عدد 2 اصبح يعرض 1 بنائاً على 

كود :

GROUP BY id_acc

وقمت بجمع حقل واحد فى السطر 

كود :

,credit_acc = sum(credit_acc)

صورة لاستعلام الجدول الافتراضي

صورة للاستعلام بعد استخدام الكود

يمكنك التلاعب مع الكود من خلال جملة MAX تحولها الى MIN

الفكرة منها هو اخد قيمة محددة من جميع التشابه حسب الاكبير قيمة أو الاقل قيمة

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