回答編集履歴

修正

2021/02/05 02:15

投稿

スコア0

test CHANGED Viewed

@@ -6,11 +6,11 @@
     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