[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


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

---

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

---

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

---

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

[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

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

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

[mrnooo2000]

الأخ السائل 

يرجى تحديد ما تريد بالضبط لأنك هكذا تتعب نفسك و تتعب غيرك 
و لا تصل الى ما تريد 


هل تريد عرض الاصناف مجمعة من قاعدة البيانات 
يمكنك ان تفعل ذلك مباشرة عن طريق الاستعلام كما فى المشاركة السابقة لهذه المشاركة ( مشاركة الجوكر )
و اذا اردت عرض الفاتورة مرتين مجمعة و مفصلة استخدم استعلامين 


و اذا اردت تجميع العناصر المعروضة داخل الداتا جريد 
فقد وضعت استعلام فى مشاركتى السابقة يعمل ذلك مباشرة على الداتا جريد 


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

[atefkhalf2004]

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

المطلوب بعد اذنكم

زر امر  اضغط  عليه  يقوم  بعرض  بيانات الحريد ( اصناف الفاتورة)
بحيث
اذا  كان هناك  صنف    كميته  7    ومرة اخري   3   
يتم عرض الاصناف في الجريد الثانية     الصنف  والكمية  المجمعة  وهي  10

اي
مثلا عدد  اصناف الفاتورة  8  اصناف     هناك صنف مكرر  3 مرات   يتم تجميعه  وبالتالي يصبح  عدد الاصناف  6
اتمني اكون عرضت المشكلة

---

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

هذا ما اريده فعلا

[viv]

السلام عليكم

الاخوة عرضوا عليكم الحل السليم لمشكلتك (Groub by) .
ان طريقة تجميع البيانات من الداتاجريد غير سليمة .
اولا ان عرضك لفاتورة فيها الصنف A مكرر اصلا غير منطقية .
وانت هكذا تقوم بعمل زائد وفيه الكثير من الشوشرة .
طالما تستطيع ان تجلب البيانات مجمعة فلا داعي لاستخدام طريقتك هذه .
مع العلم كملاحظة

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

[atefkhalf2004]

تم ارفاق الملف  للتعديل وشكرا لكم

[elgokr]

(15-05-18, 05:10 PM)atefkhalf2004 كتب : تم ارفاق الملف  للتعديل وشكرا لكم

هل اطلعت على المشاركة الاخيرة لى فى هذا الموضوع ؟؟؟

[atefkhalf2004]

نعم اتطلعت

حضرتك دائما انا احب التعلم  
نفسي اعرف اضغط  علي الزر  يعرض الفاتورة مجمعة  في الجريد الثانية  لاني استفيد  من الكود  في موضوعات اخري

ولا ارغب في  استيراد البيانات من القاعدة   

اتمني ان اكون عرضت المشكلة

[elgokr]

(15-05-18, 06:25 PM)atefkhalf2004 كتب : نعم اتطلعت

حضرتك دائما انا احب التعلم  
نفسي اعرف اضغط  علي الزر  يعرض الفاتورة مجمعة  في الجريد الثانية  لاني استفيد  من الكود  في موضوعات اخري

ولا ارغب في  استيراد البيانات من القاعدة   

اتمني ان اكون عرضت المشكلة

حالياً انا اطلعت على المشروع

واجد بداخله عدد 2 Button

الاول تحت اسم : بحث وبمسمى btnSearch

والثانى تحت اسم : Button1 بمسمى Button1

حالياً انت محتاج لما اضغط على زر البحث يطبق اللى انت طالبه مع عملية الفلتر للبحث

ولا محتاج من خلال الزر Button1 بحيث يعمل جروب للصنف لكل نتائج الجدول فى DataGridView1 الموجود بالاسفل الفورم

فى انتظار ردك

[atefkhalf2004]

اسف للتاخير   لما اضغط button1 يعمل البيانات في جريد2    شكرا كثيرا لكم