[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 3 ايام .

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

---

(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

---

هذا الشرط لايوجد لديه كووود ...
اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 500 داخل العمود total .

---

كود الخاص بحساب العمولات من الحقل total ......

Public Class Form1

Sub GetCondition()
Dim txtTotal As Integer
For Each rw As DataGridViewRow In Table1DataGridView.Rows
If Not IsDBNull(rw.Cells(1).Value) Then

Select Case rw.Cells(1).Value

Case 1 To 10
rw.Cells(1).Value = 10

Case 11 To 20
rw.Cells(1).Value = 20

Case 21 To 30
rw.Cells(1).Value = 30
End Select

If Not IsDBNull(rw.Cells(1).Value) Then
txtTotal += rw.Cells(1).Value
End If
End If

Next
Me.DataGridView1.Rows.Add()
Me.DataGridView1.CurrentRow.Cells(0).Value = Me.Table1DataGridView.CurrentRow.Cells(0).Value
Me.DataGridView1.CurrentRow.Cells(1).Value = txtTotal
End Sub

Private Sub btnSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.Click
GetCondition()
End Sub

---

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

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


اذا في شرط واحد بس ما تحقق لا يتم عرض البيانات في  datagridviwe 2   نهااااااااااائيا ؟؟؟؟

لانو انا الحين حاطط في الدات بيز كمثال للكود رقم (1) نلاااااحظ جميع شروطه محققه نرجو الانتباه لهاذه النقطه وشكرااا يرجى المساعدة بشكل عااااااجل وجزاكم الله خير عندي تسليم مشرووع بالدارسة وياريت تقدر تفيدوني اخووووواني الكرام .......هذا المشروع لديكم