تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج مساعدتكم في طريقه تركيب الكود كامل الاكواد جاهزة مصغر يتبع للعمولات
#1
احتاج مساعدتكم في طريقه تركيب الكود كامل الاكواد جاهزة مصغر يتبع للعمولات ..... لقد قمت بتجميع الاكواد باقي تركيب الاكواد مع بعض وشوية تعديل ليصير الكود عندي واحد داخل 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) نلاااااحظ جميع شروطه محققه نرجو الانتباه لهاذه النقطه وشكرااا يرجى المساعدة بشكل عااااااجل وجزاكم الله خير عندي تسليم مشرووع بالدارسة وياريت تقدر تفيدوني اخووووواني الكرام .......هذا المشروع لديكم


الملفات المرفقة صورة/صور
   

.rar   WindowsApplication1.rar (الحجم : 206.41 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة:
#2
كيف يتم تركيب الكود ارجو الافاااااادة و المساعدة
الرد }}}
تم الشكر بواسطة:
#3
يعطيك الف عااافيه مجهود جبار منك اخي khodor1985 الله يعطيك العااافيه ولاكن هنا 3 اخطاء صغيرة يمكن ماجربت او مااالاحظت الها .... يعني الحين الشروووط ال 3 هاااذي ما تحققت معي في البرنامج تبعك ....... يعني المفروض اذا اختل شرط واحد فقط لا تعرض البيانات في داتا جيرد فيو 2 وهاااذي الشروط انا كنت ذاكرها فووووق :

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

2/اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 500 داخل العمود total .
هنا اذا كان المجموع اقل  مثلا 400 لرقم الكود 1 لا يدخل معي الكود 1 نهائيا بالحسبان



3/اذا كان الفرق بين العمود date1 و date2  ................( ثلاثه ايام فقط  ).
مثلا .... 4 يااااام  او يومين مايدخل ( معي العمود فقط ) الحسبان الا ان تتحقق باقي الشرووووط للرقم الكود المجموع اكبر من 500 و الفرق بين حقول التواريخ الاخرى 3 ايام و يكون تكرر اكثر من 4 مرات لانو هاااااذي المرة بأعتبارها مو محسووووبة لانه الفرق بين التاريخين اختل  ..... يرجى المساعدة وجزاك الله خير

لاحظ معي هنا في الكود رقم 2 .... الفرق بين التاريخ الاول والتاريخ الثاني سنة وليست 3 ايام ..... والمفروض حسب الشرط 3 ايام فقط غير كدا تعتبر ملغيه ماتدخل معنا في الحساااب

2/اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 500 داخل العمود total .
هنا اذا كان المجموع اقل مثلا 400 لرقم الكود 1 لا يدخل معي الكود 1 نهائيا بالحسبان

المفروض هذاااا ملغي لانو تكرر مرتين فقط


الملفات المرفقة صورة/صور
           
الرد }}}
تم الشكر بواسطة: الطالب
#4
اوكي انتظر منك التعديل وجزيت خيرا اخي الحبيب khodor1985
الرد }}}
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2 Coder_iraqii 4 400 18-12-23, 06:46 PM
آخر رد: Kamil
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  احتاج كود اعادة الترقيم في السنة الجديدة ranosh 3 456 27-11-23, 01:25 AM
آخر رد: justforit
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم