Formateo de Numeros

[almaluz]

Hola,

Estoi intentando formatear el valor que me devuelve un campo con:

FormatNumber(campo,2)

Funciona bien hasta que el campo esta vacio, entonces me da el error:


La conversión del tipo 'DBNull' al tipo 'Currency' no es válida

Llevo probando dos horas.. ¿Sabeis como puedo solucionarlo?

Saludos

[Rony J.]

por q no haces la conversion solo cuando el campo es <> ""? y si es "" pues asignas a una variable Cero(0)

[xknown]

Lo que dice Rony J. lo puedes hacer desde la consulta SQL, no sé de que tipo sean el campo numérico pero podrías probar (válido para SQL Server):

select cast(isnull(campo,0) as float) as campo_numero

[almaluz]

Estoy haciendo asi:

<asp:Label id="lbprecio" runat="server" text='<%#Formatea_Numero(Container.DataItem("preci oVenta"))%>'></asp:Label>


yla funcion esta:

Protected Function Formatea_Numero(precio As Integer)
Dim numero

If precio <> false Then
numero = CDbl(FormatNumber(precio,2))
Else
Numero = CStr("Consultar")

End If

Return Numero
End Function


si pongo
If precio = "" Then ......


me da el error:
la cadena no tiene el formato correcto , (he probado con false ).

En cuanto a lo que dice xknown, es una base de datos Access, y estoy utilizando un storeProcedure para recupererar los datos.

mas sugerencias ?

Saludos

[Rony J.]

no probaste algo asi:

If Not precio is Nothing Then
numero = CDbl(FormatNumber(precio,2))
Else
Numero = CStr("Consultar")
End If

[almaluz]

Asi obtengo el error:

'Is' requiere operandos que tienen tipos de referencia, pero este operando tiene el tipo de valor 'Integer'.

[RootK]

Coincido mas o menos como lo plantea xknown

Si estas usando SQL Server puedes hacer ésto en tu query donde te traes tus valores.

Ejemplo.

SELECT ...,COALESCE(precioVenta,0) AS PrecioVenta
FROM TABLA

Con ello estás indicando que si es nulo ponga un 0, y ya por código puedes hacer tu comparacion con el 0.

Y sería:

Protected Function Formatea_Numero(precio As Integer)
Dim numero

If precio <> 0 Then
numero = CDbl(FormatNumber(precio,2))
Else
Numero = CStr("Consultar")

End If

Return Numero
End Function

Claro que si estas ocupando tambien el cero lo puedes validar por ejemplo trambien con un -1, o algo por el estilo.

Espero que te funcione..

[jose_d]

Hola gente no hay manera con el tostring("Formato") la verdad es que yo estoy tratando de hacer lo mismo pero no me da necesito pasar un valor int a currency.

[almaluz]

Buenas de nuevo.

He conseguido solucionarlo con el siguiente..

If precio is DbNull.value Then
precio=0
Numero = CStr("Consultar")
else
precio = cInt(precio)
numero = FormatNumber(precio,2)
End If

Return Numero

Pos si le sirve a alguien.

Saludos