منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] طلب كود خاص بجمع مجاميع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] طلب كود خاص بجمع مجاميع (/showthread.php?tid=38307)

طلب كود خاص بجمع مجاميع - abde6726 - 17-04-21

طلب كود خاص بجمع مجاميع الباب حسب الصفوف المتشابه في الفليكس غريد   حسب المثال المرفق

RE: طلب كود - abde6726 - 18-04-21

اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg

RE: طلب كود - abde6726 - 18-04-21

انا عندي هذا الكود الذي يجمع الاعمدة في قاعدة البيانات
و انا اريد جمع مجاميع الصفوف المتشابه
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
Text2.Text = "0"
End If

RE: طلب كود - abde6726 - 18-04-21

اخي الكريم شكرا جزيلا

RE: طلب كود - abde6726 - 18-04-21

هذا في حالة وجود صفوف تحتوي على article يعطي المطلوب
اما اذا كانت الصفوف لا تحتوي على article فيطلع التنبيه التالي invalid use of nul
و عليه اريد لهذا الكود ان يعمل و يعطيني نتيجة 0

RE: طلب كود - ahmedabdelaliem - 20-04-21

سلام عليكم

عدل هذا الجزء من الكود هكذا اخي 

كود :
TextX.Text = IIf(rs!TotalSum <> "", rs!TotalSum, "")


بالتوفيق

RE: طلب كود - abde6726 - 20-04-21

اخي أحمد عبد العليم السلام عليكم لقد قمت بتعديل الكود حسب ماطلبت ............. شكرا جزبلا

RE: طلب كود - ahmedabdelaliem - 21-04-21

بالوفيق اخي