مجموع مقادیر یک ستون

[mm_ley]

با سلام به دوستان و اساتید

سوالم رو اینجوری مطرح می کنم :

تو دیتا بیس یه فیلدی داریم بنام variz که مه مقدار عددی می گیرد

حال می خوام توی فرم یه دستوری بنویسم که توی یک label یا textbox

محموع مقادیر این فیلد واریز را نشان بده؟


میشه این دستور را برام بنویسید؟

[Di Di]

دوست عزیز

به اولین رکورد از دیتابیس برید و تمام مقادر واریز وارده شده را تا انتها خوانده و با هم جمع کنید و در نهایت در یک

Lable نمایش بدید.

حالا هر جاش که مشکل دارید بگید تا دقیبق تر راهنمائی کنیم.

[mm_ley]

میشه در قالب کد یک مثال بزنید

[Di Di]

من فرض می کنم شما با استفاده از کنترل 1Data به بانک اطلاعاتی اکسس متصل شدید :

کد:

data1.recordset.MoveFirst

While Data1.RecordSet.EOF <> True
     Variz = Data1.RecordSet.Fild ("Variz")
     VKol = VKol + Variz
     Data1.RecordSet.MoveNext
Wend

Lable1 = VKol

[mm_ley]

دوست عزیز کد شما را در قسمت vkol = vkol + code ارور run time 13

type mismach می گیرد

ضمنا من از adodc1 استفاده می کنم

---

کد را بصورت زیر تغییر دادم درست شد

بازم ممنون

کد:

Private Sub Form_Load()

Adodc1.Recordset.MoveFirst
vkol = 0
While Adodc1.Recordset.EOF <> True
code = Adodc1.Recordset.Fields("code")
vkol = vkol + code
Adodc1.Recordset.MoveNext
Wend
Lable1 = vkol
End Sub[hr]

فقط یه مشکل کوچولو

در همان لحظه اگر ار داخل دیتا گرید مقادیر را تغییر بدیم label ما جمع ش در همان لحظه تغییر نمی کند؟

مشکل چیست؟

[Di Di]

دوست عزیز

دیتابیستون رو ریفرش کنید و مجددا این عمل رو انجام بدید.