client/ClassFunciones.vb

14 lines
328 B
VB.net
Raw Normal View History

Public Class ClassFunciones
Public Function Reemplaza_DBNULL(ByVal ValorOriginal As Object, ByVal ValorReemplazo As Object) As Object
If IsDBNull(ValorOriginal) Then
Reemplaza_DBNULL = ValorReemplazo
Else
Reemplaza_DBNULL = ValorOriginal
End If
End Function
End Class