تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] التاخير في دفع المصروفات بالداتا جريد فيو
#1
عندي داتا جريد فيو بها مجموعة من الطلاب وتاريخ دفع المصروفات الخاص بفترة معينة من اول مدة الدفع الي اخر الشهر من الدفع وانتهاء المصروف الشهري اريد معرفة كل طالب كم تاخر بالايام او الشهو عن الدفع الشهري الي الشهر التالي
لكل طالب ماهي مدة تاخير وتاتي بفرق امدة الحالية لنفس الطالب - اخر تاريخ للمدة السابقة لطالب

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

حاولت اعمل حلقة تكرارية وعلي اساس التكرار ياتي باسم الطالب ويطرح المدة ولكن الكود يعتمد علي اول تاريخ وليس كل تاريخ جديد


   
الكود


كود :
  On Error Resume Next
       For intI = DataGridView1.Rows.Count - 1 To 0 Step -1
           For intJ = intI - 1 To 0 Step -1
               Dim t As String = DataGridView1.Rows(intI).Cells(16).Value ' duplicat
               Dim j As String = DataGridView1.Rows(intJ).Cells(16).Value ' original
               Dim fromDate As String = Regex.Match(t, "(?<=من\s).+?(?=\s)").Value
               Dim toDate As String = Regex.Match(t, "(?<=الي\s).+?(?=\s)").Value
               Dim fromDate1 As String = Regex.Match(j, "(?<=من\s).+?(?=\s)").Value
               Dim toDate1 As String = Regex.Match(j, "(?<=الي\s).+?(?=\s)").Value
               Dim d1 As Date = CDate(fromDate)
               Dim d2 As Date = CDate(toDate)
               Dim d3 As Date = CDate(fromDate1)
               Dim d4 As Date = CDate(toDate1)
               If DataGridView1.Rows(intI).Cells(15).Value = DataGridView1.Rows(intJ).Cells(15).Value Then
                   If IsDate(fromDate) And IsDate(toDate) Then
                       DataGridView1.Rows(intI).Cells(17).Value = DateDiff("d", d4, d1) 'intJ,intI
                       DataGridView1.Rows(intI).Cells(18).Value = DateDiff("M", d4, d1)
                   Else
                       DataGridView1.Rows(intI).Cells(17).Value = 0
                       DataGridView1.Rows(intI).Cells(18).Value = 0

                   End If
             
               End If
           Next
       Next
الرد }}}
تم الشكر بواسطة:
#2
مفيش فكرة معينة اقوم بيها بالكود لان البرنامج كامل متوقف علي هذا الطلب
الرد }}}
تم الشكر بواسطة:
#3
مرحبا يعطيك العافية محمد أسماعيل في طر يقة تعرف ئديه كل الطالب متأخر عن الدين في شي أسمه أعمار الذمم   

كما في الصورة اذا كنت تريد تواصل معي خاص


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
Photo [سؤال] تجميع قيم العناصر المتشابهة في الداتا جريد فيو علاء الكبابي 6 565 13-08-23, 01:00 PM
آخر رد: تركي الحلواني
  [سؤال] دمج جدولين في داتا جريد فيو alhuraibi 0 353 04-08-23, 12:08 AM
آخر رد: alhuraibi
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023

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


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