[حمادة الزملكاوى]

السلام عليكم ورحمة الله وبركاتة

اريد مجموع قيمة عمود من داتا جريد واظهارها بتكست بوكس

[عبدو الليبي]

إذا أنت رابط الداتا جريد بـ Adodc ممكن بهذه الطريقة:

كود :

adodc1.datasource="select * from اسم الجدول"
adodc1.refersh

dim tt
tt=0
do while not adodc1.recordset.eof
tt=adodc1.recordset.field("اسم الحقل") + tt
adodc1.recordset.movenext
loop
text1.text=tt

مع تصحيح الخطأ إن وجد

هذه الطريقة أو ما شابهها هي الحل، وليس بالضرورة حساب المجموع من الداتا قريد

[حمادة الزملكاوى]

للاسف مش مربوطة بأدو مربوطة بالداو
لو فى طريقة للداو اكون عاجز عن الشكر

[عبدو الليبي]

تفضل يا خونا تم العمل عليه وبنجاح هذا مني أنا.. قبل وضع الكود ببرنامجك اربط الداتا بقاعدة البيانات عن طريق الخاصية DataBaseName وغير من الكود اسم الجدول واسم الحقل المطلوب حساب مجموعه

كود :

Data1.RecordSource = "select * from tb"
Dim tt
tt = 0
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
tt = Data1.Recordset.Fields("m_no") + tt
Data1.Recordset.MoveNext
Loop
Text1.Text = tt

[حمادة الزملكاوى]

شكرآ اخى الكريم استفدت جدآ من المثال وفعلآ اتطبق

لى سؤال اخر بعد اذنك
لو عايز ترقيم تلقائى يظهر بالداتاريبورت على شرط انة مش موجود بالجدول بمعنى انة يعمل ترقيم تلقائى لعدد الحقول بالجدول ويظهر بالدتاريبورت

[عبدو الليبي]

يا خونا أنا مش امجرب ترقيم الداتا جريد نفسه ولا أعتقد يوجد طريقة إلا...

أن تقوم إضافة حقل في قاعدة البيانات ونوع البيانات (ترقيم تلقائي)