[RESOLVED] SUM Function ()

[milen]

DEAR,My Friend
I am devloping a little idea about application and i want to SUM a colume in DataGrid its working good but he didnt respect the Commas for example to SUM row1+row2 = 12.5$ + 10.65$ = 22$ its wrong ,it should have to be 23,15$ but i dont kno what i have to add to the code below so please just help me to SUM amounts and respect cammas please. this is my Code i use it for Summing Function:
------------------------------------------------------------
Dim i As Integer
Dim Som As Long
Som = 0
For i = 1 To Adodc1.Recordset.RecordCount
Som = Som + Adodc1.Recordset.Fields(3).Value
Adodc1.Recordset.MoveNext
Next i
E.Text = Format$(Som, "####.00 DA")
Adodc1.Refresh
------------------------------------------------------------

[RhinoBull]

...example to SUM row1+row2 = 12.5$ + 10.65$ = 22$ its wrong...

That's because you defined variable (Som) as Long - dim it as Single or Double instead:

Dim Som As Single

[milen]

DEAR,My Friend
Its very nice ,Yeah its working now, really thank's for your corporation My Friend i will approciate that
Best Regards

[RhinoBull]

You're welcome.