Protected Function ChangeFormat1(ByVal obj As Object) As String If TypeOf obj Is DBNull Then Return String.Empty ElseIf TypeOf obj Is String Then System.Diagnostics.Debug.WriteLine("OBJ -> " & obj) If Char.IsNumber(obj) Then Dim i As String = CType(obj, Integer) <------------ここで変換エラー発生(2008/6/1、4日の場合)
If i = 0 Then Return String.Empty Else Return obj.ToString End If Else Return obj.ToString End If End If End Function