Sumar datagrid
Publicado por Pacifico (6 intervenciones) el 01/03/2004 15:21:04
Compañeros tengo un problema al sumar una columna en un data grid
el siguiente codigo sumo la columna
Private Sub sumavalor()
Dim CN As New adodb.Connection
Dim Rs As New adodb.Recordset
Dim sql As String
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Documents and Settings\CHIJITO\My Documents\tesisvb6\Bahamus.mdb"
sql = "SELECT sum(Horasservicio) "
sql = sql & " FROM Horas "
Rs.Open sql, CN
If Not Rs.EOF Then txtsubtotal.Text = Rs(0)
Rs.Close
Set Rs = Nothing
CN.Close
Set CN = Nothing
End Sub
estas son las horas que debo sumar del data grid
4.46 Hora 1
3.50 Hora 2
4.37 Hora 3
y el resultado debe ser 13.13 horas pero el resultado que me da es
.550694444444444
no se que debo estar sumando mal....
Gracias y espero que me puedan ayudar..
el siguiente codigo sumo la columna
Private Sub sumavalor()
Dim CN As New adodb.Connection
Dim Rs As New adodb.Recordset
Dim sql As String
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Documents and Settings\CHIJITO\My Documents\tesisvb6\Bahamus.mdb"
sql = "SELECT sum(Horasservicio) "
sql = sql & " FROM Horas "
Rs.Open sql, CN
If Not Rs.EOF Then txtsubtotal.Text = Rs(0)
Rs.Close
Set Rs = Nothing
CN.Close
Set CN = Nothing
End Sub
estas son las horas que debo sumar del data grid
4.46 Hora 1
3.50 Hora 2
4.37 Hora 3
y el resultado debe ser 13.13 horas pero el resultado que me da es
.550694444444444
no se que debo estar sumando mal....
Gracias y espero que me puedan ayudar..
Valora esta pregunta


0