[sendbad100]

السلام عليكم

بعد انتهاء عملية البحث  استخدم هذا الكود

كتبت الكود ولم اجربه   --- لان جهازي الحالي لا يحتوي  الفجوال بيسك 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    مباشرة من الجدول المطلوب  ولكن تحتاج الى خلفية جيدة في الاستعلامات.

تحياتي لك