(05-09-15, 09:58 PM)moh61 كتب : احتاج مساعدتكم في طريقه تركيب الكود كامل الاكواد جاهزة مصغر يتبع للعمولات ..... لقد قمت بتجميع الاكواد باقي تركيب الاكواد مع بعض وشوية تعديل ليصير الكود عندي واحد داخل button  واحد فياريت لو سمحتو تساعدوني وجزاكم الله خير ..... راح افصل لكم كل شرط مع الكود الخاص به بالتفصيل ما ابغى منكم سوي تجميع كل الاكواد داخل كود واحد بالشروط التاليه :

1 / اذا تكرر الرقم داخل العمود  code  اكثر من او يساوي 4 مرات .
2/اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 500 داخل العمود total .
3/اذا كان الفرق بين العمود date1 و date2  3 ايام .


تحسب عموله خاصه من العمود total وتكون بالشروط التاليه وسوف يكون لها حق خاص جديد بأسم total2 ب datagridviwe2  وهاذه العمولة الخاصه بالشكل هذا :
Case 100 To 200
rw.Cells(1).Value = 100        

Case 201 To 300
rw.Cells(1).Value = 200

Case 301 To 400
rw.Cells(1).Value = 300

اذا تحققت الشرووووووووط اعلاه يتم عرض البيانات في  datagridviwe2 .....  بالحقول التاليه كما هو مبين بالصورة

1 / رقم الكود ومن ثم
2 / عدد مرات التكرار في العمود code
3/ المجموع الكلي الخاص بالكود داخل العمود total .
4/ المجموع الخااص اسنادا للقيم السابقه (total2)



سوف اضع لكم الاكواد الخاصه  بكل شرط

---

1 / اذا تكرر الرقم داخل العمود  code  اكثر من او يساوي 4 مرات .  ........... الكود الخاص به

       ListBox2.Items.Clear()
       For a = 0 To ReportsDataGridView.Rows.Count - 1
           Dim itm As String = ReportsDataGridView.Rows(a).Cells(0).Value.ToString
           If gitemcount(itm) >=3 Then
               If ListBox2.Items.Contains(itm) = False Then
                   ListBox2.Items.Add(itm)
               End If
           End If
       Next

محتاج تعديل

---

اذا كان الفرق بين العمود date1 و date2 ايام .

       For i As Integer = 0 To Database2DataSet.Table1.Rows.Count - 1

           If DateDiff("d", Database2DataSet.Table1.Rows(i)("date 1").ToString, Database2DataSet.Table1.Rows(i)("date 2").ToString) = 3 Then
               ListBox1.Items.Add(Database2DataSet.Table1.Rows(i)("code").ToString)
           End If
       Next
   End Sub