جمع محتويات حقل موجود فى الفليكس جرايد

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

يوجد فيه مثال لما تريد

اخى اشكر على المتابعه لاعضاء المنتدى

بالنسبه للكود لم اجد طلبى على الرابط بالضبط

انا استخدمت كود التالى

كود ايجاد مجموع حقل

flex4.Rows = Val(flex4.Rows) + 1

flex4.TextMatrix(Val(flex4.Rows) - 1, 1) = "المجموع "

For N = 1 To (Val(flex4.Rows) - 2)

price1 = Val(flex4.TextMatrix(N, 4) + price1

Next N

flex4.TextMatrix(Val(flex4.Rows) - 1, 2) = "------>"

flex4.TextMatrix(Val(flex4.Rows) - 1, 4) = price1

المشكله فى هذا الكود انه لايجمع الحقل بل يضع اخر قيمه موجوده فى اخر سجل

بمعنى انا لو فى ثلاث سجلات فى الفليكس قرايد الحقل المطلوب جمع محتوياته به القيم التاليه

300

500

600

اناه يضع المجموع 600 وليس1400

B)

الموضوع كله بعتمد على جملة التكرار واخذ القيم الموجوده في الحقول حتى نهاية الصفوف والصيغه كالتالي

For i = 1 To .Rows - 1

next

TotalMDFlx.rar

الف الف شكر اخى HnHn ولجميع اعضاء ومشرفى منتدنا العظيم

ياهلا وسهلا

ياريت الأخوة يدلونا ايضا على طريقة جمع الحقوق بال dbgrid

وشكرا لكم

مشكور اخى HnHn على الاهتمام

المثال جميل جدا وهوه يجمع محتويات الحقل الثانى حاولت ان اجمع المحتويات الحقل الرابع فقط فلم يتم الرجاء توضيح

اين اسم العمود فى هذا الكود

Dim x, y%

Private Sub Form_Load()

x = 1

With MSFlexGrid1

For i = 1 To .Rows - 1

x = x * 2

.Text = x

y = Val(y) + Val(.Text)

.Row = i

Next

End With

Label1 = y

End Sub

اشكرك جزيلا

فقط حدد العمود .MSFlexGrid1.Col = 4 قبل الشفرة الموجودة في المثال كما يلي

Private Sub Form_Load()
x = 1
With MSFlexGrid1
.Col = 4
For i = 1 To .Rows - 1
x = x * 2
.Text = x
y = Val(y) + Val(.Text)
.Row = i
Next
End With

Label1 = y
End Sub

اما بالنسبة لطلب الاخ عماد قدري بـ dbgrid هناك مثال موجود في رابط اسفل التوقيع بعنوان "كل ما تود معرفته " آخر صفحة

يوجد فيه مثال لما تريد