Hola a todos.
Tengo un Listbox con datos diversos.
Una columna llamada Subtotal que es la numero 9, contiene valores del tipo “Decimal(15,2)” que es el tipo de formato que le di en mi base de datos MySQL.
Yo deseo que los datos de esta columna me los formate como moneda, as: 95769.67 -> $95,769.67.
Me recomendaron que usara el Evento CellTEXTPaint de mi Listbox y all le aplicara formato.
Estoy usando este cdigo:
if Column = 9 then
Dim dbl As double
dbl = val(me.Cell(Row,Column))
me.Cell(Row,Column) = format(dbl,"\$###,##0.00")
end if
Algunos de los valores les da formato, pero cuando intenta hacerlo de nuevo,me sale $0.00.
Luego me propusieron almacenar el valor de mis base de datos en Rowtag o Celtag.
y despus intentar con este cdigo:
if Column = 9 then
Dim dbl As double
dbl = val(me.CellTAG(Row,Column)) //<— NOTICE CELLTAG not CELL
me.Cell(Row,Column) = format(dbl,"\$###,##0.00")
end
Alguien sabe acerca de como almacenar como Celltag?
O de que manera puedo hacer esto correctamente?
Saludos