回答編集履歴

修正

2021/02/05 02:15

投稿

スコア0

answer CHANGED Viewed

@@ -2,9 +2,9 @@
 ```vb.net
     For Each row As DataRow In table0.Rows
-        For colIndex = 1 To table0.Columns.Count - 1
+        For Each col As DataColumn In table0.Columns
-            If IsDBNull(row(colIndex)) Then
+            If col.DataType = GetType(Decimal) AndAlso IsDBNull(row(col.Ordinal)) Then
-                row(colIndex) = 0
+                row(col.Ordinal) = 0
             End If
         Next
     Next