Sub CStr(val) As String
Return val
End Sub
Sub leer_registros
Dim rs As ResultSet
Dim where As String
where="%" & SpinnerMEs.SelectedItem & "%" & SpinnerAno.SelectedItem &"%"
'Lineas de Totales
rs=sql.ExecQuery2("select * from dias where dia like ? order by dia asc",Array As String(where))
Dim i As Int
Totales.Clear
For i=0 To rs.RowCount-1
Dim h As String
Log(rs.GetDouble("Horas"))
h=CStr(rs.GetDouble("Horas"))
rs.Position=i
Totales.Add(crea_row(rs.GetString("Dia"),h,rs.GetString("Tipo")),rs)
Next
end sub