質問編集履歴
1
コメントにソースコードを記入しにくかったため質問に追記しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,4 +15,28 @@
|
|
|
15
15
|
If ds.DataTable1(0).IsDataColumn1Null = False Then
|
|
16
16
|
Dim a As Integer = ds.DataTable1(0).DataColumn1
|
|
17
17
|
End If
|
|
18
|
+
```
|
|
19
|
+
|
|
20
|
+
追記）
|
|
21
|
+
回答を参考に汎用メソッドを作ってみました。
|
|
22
|
+
こんな感じでしょうか？
|
|
23
|
+
|
|
24
|
+
```lang-vb
|
|
25
|
+
''呼び出し
|
|
26
|
+
Dim a As Integer = GetValue(ds.DataTable1(0), "DataColumn1")
|
|
27
|
+
|
|
28
|
+
''汎用メソッド
|
|
29
|
+
Public Function GetValue(ByVal row As DataRow, ByVal colnm As String) As Object
|
|
30
|
+
Dim dt As DataTable = row.Table
|
|
31
|
+
Dim col As DataColumn = dt.Columns(colnm)
|
|
32
|
+
If IsDBNull(row(col.ColumnName)) Then
|
|
33
|
+
If col.DataType Is GetType(String) Then
|
|
34
|
+
Return Nothing
|
|
35
|
+
Else
|
|
36
|
+
Return 0
|
|
37
|
+
End If
|
|
38
|
+
Else
|
|
39
|
+
Return row(col.ColumnName)
|
|
40
|
+
End If
|
|
41
|
+
End Function
|
|
18
42
|
```
|