احتاج مساعدتكم في طريقه تركيب الكود كامل الاكواد جاهزة مصغر يتبع للعمولات ..... لقد قمت بتجميع الاكواد باقي تركيب الاكواد مع بعض وشوية تعديل ليصير الكود عندي واحد داخل 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
هذا الشرط لايوجد لديه كووود ...
اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 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) نلاااااحظ جميع شروطه محققه نرجو الانتباه لهاذه النقطه وشكرااا يرجى المساعدة بشكل عااااااجل وجزاكم الله خير عندي تسليم مشرووع بالدارسة وياريت تقدر تفيدوني اخووووواني الكرام .......هذا المشروع لديكم
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) نلاااااحظ جميع شروطه محققه نرجو الانتباه لهاذه النقطه وشكرااا يرجى المساعدة بشكل عااااااجل وجزاكم الله خير عندي تسليم مشرووع بالدارسة وياريت تقدر تفيدوني اخووووواني الكرام .......هذا المشروع لديكم