どうも例外処理はよくわからんのお。
VB.NET で、num01~num10 という項目のあるテーブルを DataSet に読み込んで処理しているんだけど、例えば
Dim sum As Integer = 0sum = sum + dr.num01sum = sum + dr.num02sum = sum + dr.num03~sum = sum + dr.num09sum = sum + dr.num10
なんて書くのは面倒臭いので、
For i = 1 To 10Dim idx As String = i.ToString("00")sum = sum + CInt(CallByName(dr, "num" & idx, CallType.Get))Next
とかしてるわけですよ。
でも、例えば num01 が DBNull だと「'hogeTbl' にある列 'num01' の値は DBNull です。」という例外が発生してしまうんですね。まあ、当然。
ただ、
For i = 1 To 10Dim idx As String = i.ToString("00")Trysum = sum + CInt(CallByName(dr, "num" & idx, CallType.Get))Catch ex As System.Exception' 何もしないEnd TryNext
みたいに例外が発生したら何もせず次のデータの処理に移ろうと思っても駄目なんよねえ。
CallByName(dr, "num" & idx, CallType.Get) の処理で、DataSet を設定した時に自動生成される .Designer.vb ファイル内の
Return CType(Me(Me.hogeTbl.num01Column), Integer)
の処理で先に DBNull 例外が発生しちゃう。
仕方ないので(とりあえずプログラム動かさないといけないので)、
If Not dr.Isnum01Null Thensum = sum + dr.num01End IfIf Not dr.Isnum02Null Thensum = sum + dr.num02End IfIf Not dr.Isnum03Null Thensum = sum + dr.num03End If~If Not dr.Isnum09Null Thensum = sum + dr.num09End IfIf Not dr.Isnum10Null Thensum = sum + dr.num10End If
なんてベタ書きでやってるんだけど美しくないので、VB.NETマスターの皆さん、是非ご教示を!