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

السلام عليكم

يمكنك التحقق من محتوى الخلايا قبل القسمة

هذا مثال

if Val(MSFlexGrid1.TextMatrix(i, 2)) <> 0 then

If Rs.EOF Then Rs.MoveFirst

For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, 5) = Val(MSFlexGrid1.TextMatrix(i, 4)) \ Val(MSFlexGrid1.TextMatrix(i, 2))
Next

end if

شكرا استاذي العزيز

لكن مع الاسف عندما ركبت الكمبو لعمل بحث ظهرت مشاكل واعطا رسالة خطا فهل هناك حل

بعد اذن اخي 3ml

جرب

If Rs.EOF Then Rs.MoveFirst
For i = 1 To MSFlexGrid1.Rows - 1
if Val(MSFlexGrid1.TextMatrix(i, 2)) <> 0 and (MSFlexGrid1.TextMatrix(i, 2)) <> "" then
MSFlexGrid1.TextMatrix(i, 5) = Val(MSFlexGrid1.TextMatrix(i, 4)) \ Val(MSFlexGrid1.TextMatrix(i, 2))
else
MSFlexGrid1.TextMatrix(i, 5) = Val(MSFlexGrid1.TextMatrix(i, 4))
end if
Next

استاذ Magnom

شاكر لك الكود وهو شغال 100%

اما بالنسبة لكود 3ml

كان هناك تعارض مع الكود

 'عداد يرجع عدد  السجلات في الجدول كاملا
   For i = 1 To n
         MSFlexGrid1.Row = i
  Next i

ولكن عندما قمت بالتعديل علي كود الاستاذ 3ml وحولت الكود من

if Val(MSFlexGrid1.TextMatrix(i, 2)) <> 0 then

الي

If Val(MSFlexGrid1.TextMatrix(1, 2)) <> 0 Then

اي وضعت رقم 1 بدلا من حرف i في الكود اصبح يعمل بصورة طبيعية

شاكرا لكم حسن صنيعكم

اخي الكريم ولماذا تحتاج الى اعادة اللوب من جديد.

لماذا لاتقم بالعملية مباشرة أثناء بناء الجريد . ( أثناء عرض البيانات في الجريد )

أنت استخدمت هذا الكود للعرض داخل الجريد .

If rs.BOF = False Then rs.MoveFirst
MSFlexGrid1.Rows = 1
Do Until rs.EOF
  MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
  MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = rs.Fields(0)
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = rs.Fields(1)
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = rs.Fields(2)
  rs.MoveNext
Loop

اجعله يصبح هكذا

If rs.BOF = False Then rs.MoveFirst
MSFlexGrid1.Rows = 1
Do Until rs.EOF
  MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
  MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = rs.Fields(0)
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = rs.Fields(1)
  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = rs.Fields(2)

  MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) = Val(rs.Fields(2)) \ Val(rs.Fields(1))

  rs.MoveNext
Loop

بدون الحاجة لانشاء لووب جديد لعملية القسمه . لان اصل عملية القسمة هي من حقول الجدول .

تحياتي

استاذ omani

اشكرك علي هذة الاضافة فانا هنا لكي اتعلم منكم بلا شك

وبالطبع ساستفاد من تعديلك الجديد

شاكرا لك

Magnom كتب:

بعد اذن اخي 3ml

جرب

If Rs.EOF Then Rs.MoveFirst
For i = 1 To MSFlexGrid1.Rows - 1
if Val(MSFlexGrid1.TextMatrix(i, 2)) <> 0 and (MSFlexGrid1.TextMatrix(i, 2)) <> "" then
MSFlexGrid1.TextMatrix(i, 5) = Val(MSFlexGrid1.TextMatrix(i, 4)) \ Val(MSFlexGrid1.TextMatrix(i, 2))
else
MSFlexGrid1.TextMatrix(i, 5) = Val(MSFlexGrid1.TextMatrix(i, 4))
end if
Next

شكرا لك أخي على التصحيح و خاصة على الأدب :)

شكرا

ولو يا اخ 3ml

احترامك واجب

:)

حياك الله اخي