14 lines
328 B
VB.net
14 lines
328 B
VB.net
|
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
|