Pregunta: | 60874 - PROBLEMA CON MSHFLEXGRID Y FORMATO MONEDA |
Autor: | Marcos Bortolussi |
Mi problema es que cuando quiero mostrar en la MshFlexGrid un campo de una base de datos que tiene el formato de moneda, no queda bien. Hice una función para transformarlo, entonces en vez de verlo así: 1369.39 se vea así = $1.369,39. Anda bien siempre que el número almacenado no tenga decimales. Cuando tiene decimales el ejemplo anterior me lo muestra así = $136.939. Ya probé haciendo: FormatCurrency(Flex.TextMatrix(1, 1), 2) Format(Flex.TextMatrix(1, 2), "$###,##0.00") y un par más, pero tampoco me funcionaron. Esta es la función que puse en un módulo para que me transforme todas las filas de una mshflexgrid: Public Function pasaraMONEDA(TABLITA As MSHFlexGrid, COLUMNA As Integer) If TABLITA.Rows < 2 Then Exit Function If TABLITA.Rows = 2 Then TABLITA.Row = 1 TABLITA.TextMatrix(1, COLUMNA) = Format(TABLITA.TextMatrix(1, COLUMNA), "$###,##") End If ULTIMAFILA = TABLITA.Rows - 1 N = 1 TABLITA.Row = 1 Do Until TABLITA.Row = ULTIMAFILA TABLITA.Row = N TABLITA.TextMatrix(N, COLUMNA) = Format(TABLITA.TextMatrix(N, COLUMNA), "$###,##") N = N + 1 Loop End Function Desde ya muchas gracias! |