13-01-19, 12:55 AM
13-01-19, 08:31 AM
السلام عليكم
بعد انتهاء عملية البحث استخدم هذا الكود
كتبت الكود ولم اجربه --- لان جهازي الحالي لا يحتوي الفجوال بيسك 6.
ولكني استخدمت نفس الكود من قبل.
وضعت لك الكود يقوم بحمع عمودين ويمكنك ان تزيد بنفس الفكرة كي لا تحتاج الى عمل LOOP لكل جمع منفصل.
PHP كود :
'On Error Resume Next
Dim N As Double, M As Double
For I = 1 To MF.Rows - 1
N = Val(MF.TextMatrix(I, 1)) + Val(N)
M = (Val(MF.TextMatrix(I, 2))) + Val(M)
Next
Text1.Text = Round(N, 3)
Text2.Text = Round(M, 3)
كما يمكنك ان تقوم باستعلام SUM مباشرة من الجدول المطلوب ولكن تحتاج الى خلفية جيدة في الاستعلامات.
تحياتي لك
16-01-19, 01:22 AM
شكرا اخي الكريم