جمع زدن یک ستون در Dbgrid [بایگانی]

vahidm

پنج شنبه 19 مهر 1386, 00:35 صبح

با سلام
چطور میشه یک ستون از دیتاگراید رو جمع بزنه
یعنی جمع اعداد سطرهای یک ستون در یک label
با تشکر

مبین رنجبر

پنج شنبه 19 مهر 1386, 11:51 صبح

از شی DbGrid نمی تونی مستقیم برای این کار استفاده کنی .... باید از طریق بانک عمل کنی ... کدی که من برای جمع زدن مبلغ کل در Adodc استفاده می کردم اینه :

Public Function JameKolMablagh(strAdo As Adodc) As Long
Dim Jam As Long
Jam = 0
If Not strAdo.Recordset.BOF Then strAdo.Recordset.MoveFirst
While Not strAdo.Recordset.EOF
Jam = Val(Jam) + Val(Replace(strAdo.Recordset!JameKol, ",", ""))
strAdo.Recordset.MoveNext
Wend
JameKolMablagh = Val(Jam)
End Function

این کد بالا رو می تونی توی ماژول بزاری و در همه فرم ها ازش استفاده کنی ... به صورت زیر :

lblJameKol.caption = JameKolMablagh(adodc1)