Dar formato ####.## a una columna de DBGrid
Publicado por Ricardo Garcia (4 intervenciones) el 16/04/2009 00:50:02
Hola saludos !!
Necesito colocar un formato del tipo #######.## a una columna de un DBGrid, esta tabla esta relacionada a un DataTable de la sgte forma:
Sub Crear_Tabla_Detalle()
If Not TBL.Columns.Count > 0 Then
TBL.Columns.Clear()
Agregar_Columna(TBL, "cod_cuen", "System.String", False)
Agregar_Columna(TBL, "cod_cont", "System.String", False)
Agregar_Columna(TBL, "cuenta", "System.String", False)
Agregar_Columna(TBL, "glosa", "System.String", False)
Agregar_Columna(TBL, "debe", "System.Double", False)
Agregar_Columna(TBL, "haber", "System.Double", False)
Agregar_Columna(TBL, "tributario", "System.Boolean", False)
Agregar_Columna(TBL, "debes", "System.Double", False)
Agregar_Columna(TBL, "habers", "System.Double", False)
Agregar_Columna(TBL, "cod_asie", "System.String", False)
LlenarGrid(DtgMovimientos, TBL)
estilo_grid()
End If
End Sub
Y necesito que en la columna de "haber" y de "debe" aparezca siempre con dos ceros decimales, en caso de que no hayan, por ejemplo:
200.00 ESTO ME APARECE 200
23.10 ESTO ME APARECE 200.1
23.23 En el ultimo caso funciona bien 23.23
Pero necesito que siempre se muestren con dos decimales
Trate de solucionar de la siguiente manera, estoy colocandolos asi:
reg("debe") = Format(CDbl(Me.Txtdebeinicial.Text), "##,###.##")
reg("haber") = Format(CDbl(Me.Txtdebeinicial.Text), "##,###.##")
Pero me resulta igual si hay ceros despues de la coma, los hace desaparecer y es urgente que me aparezcan porfavoooor si me pueden ayudar estaré muy agradecido.
Necesito colocar un formato del tipo #######.## a una columna de un DBGrid, esta tabla esta relacionada a un DataTable de la sgte forma:
Sub Crear_Tabla_Detalle()
If Not TBL.Columns.Count > 0 Then
TBL.Columns.Clear()
Agregar_Columna(TBL, "cod_cuen", "System.String", False)
Agregar_Columna(TBL, "cod_cont", "System.String", False)
Agregar_Columna(TBL, "cuenta", "System.String", False)
Agregar_Columna(TBL, "glosa", "System.String", False)
Agregar_Columna(TBL, "debe", "System.Double", False)
Agregar_Columna(TBL, "haber", "System.Double", False)
Agregar_Columna(TBL, "tributario", "System.Boolean", False)
Agregar_Columna(TBL, "debes", "System.Double", False)
Agregar_Columna(TBL, "habers", "System.Double", False)
Agregar_Columna(TBL, "cod_asie", "System.String", False)
LlenarGrid(DtgMovimientos, TBL)
estilo_grid()
End If
End Sub
Y necesito que en la columna de "haber" y de "debe" aparezca siempre con dos ceros decimales, en caso de que no hayan, por ejemplo:
200.00 ESTO ME APARECE 200
23.10 ESTO ME APARECE 200.1
23.23 En el ultimo caso funciona bien 23.23
Pero necesito que siempre se muestren con dos decimales
Trate de solucionar de la siguiente manera, estoy colocandolos asi:
reg("debe") = Format(CDbl(Me.Txtdebeinicial.Text), "##,###.##")
reg("haber") = Format(CDbl(Me.Txtdebeinicial.Text), "##,###.##")
Pero me resulta igual si hay ceros despues de la coma, los hace desaparecer y es urgente que me aparezcan porfavoooor si me pueden ayudar estaré muy agradecido.
Valora esta pregunta


0