Nz関数

Last-modified: 2011-10-21 (金) 23:38:25

へっぽこPGの部屋より抜粋　参考

サンプルPG 

''' <summary>
''' オブジェクトが Nothing または DBNull の場合に長さ 0 の文字列("")または指定したその他の値を返す
''' </summary>
''' <param name="Value">対象となるオブジェクト</param>
''' <param name="ValueIfNull">Nothing または DBNull のときに返す値を指定、長さ 0 の文字列("")以外値を返す場合に指定</param>
''' <returns>長さ 0 の文字列("")または、指定したその他の値</returns>
''' <remarks>AccessのNz関数をVB.NET版として作成。ただし数値の場合は ValueIfNull に 0 を指定しないとさ 0 の文字列("")を返す</remarks>
Public Shared Function Nz(ByVal Value As Object,Optional ByVal ValueIfNull As Object = Nothing) As String
   Nz = ""
   Dim res As Object
   If ValueIfNull Is Nothing Then
       res = Space(0)
   Else
       res = ValueIfNull
   End If
   If IsDBNull(Value) Or Value Is Nothing Then
       Nz = res
   Else
       Nz = Value.ToString()
   End If
End Function

サイト内リンク

Office系

DB系

開発

OS系