Total amount in Data grid Columns

[Serenityquinn15]

Hi!
I have little trouble in my Program. I need to total all the amount in specific column.. comes from the data produced by the datagrid..

heres my code:

Set rs11 = New Recordset
rs11.CursorLocation = adUseClient
rs11.Open "Select * From Leave WHERE EmpNo= '" & Txtempno.Text & "'", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs11

Dim i
Dim Total As Double

For i = 0 To DataGrid1.ApproxCount - 1
Total =Total + DataGrid1.Columns(15).CellValue(DataGrid1.GetBookm ark(i))
Next
TXtTotal.Text =Total

my problem is the total amount. example:

Column1

525.25
625.50

Total: 1150.75(which is correct) but it only display like this

Total : 1150 (without a decimal places)

How I can fix this??? Please help me.. tnx..

[jeffstl]

Hi!
I have little trouble in my Program. I need to total all the amount in specific column.. comes from the data produced by the datagrid..

heres my code:

Set rs11 = New Recordset
rs11.CursorLocation = adUseClient
rs11.Open "Select * From Leave WHERE EmpNo= '" & Txtempno.Text & "'", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs11

Dim i
Dim Total As Double

For i = 0 To DataGrid1.ApproxCount - 1
Total =Total + DataGrid1.Columns(15).CellValue(DataGrid1.GetBookm ark(i))
Next
TXtTotal.Text =Total

my problem is the total amount. example:

Column1

525.25
625.50

Total: 1150.75(which is correct) but it only display like this

Total : 1150 (without a decimal places)

How I can fix this??? Please help me.. tnx..

Do you want the decimal points or you do NOT want them?

Here is a thread on rounding in VB

http://www.thescripts.com/forum/thread546299.html

[Serenityquinn15]

Do you want the decimal points or you do NOT want them?

Here is a thread on rounding in VB

http://www.thescripts.com/forum/thread546299.html

I need a number with decimal places....