上个例子吧,大哥
For Each r As DataRow In DataTables("表A").DataRows
Dim q,b,s,g As Integer
If r("第一列") > 1 Then
q =r("第一列")
End If
If r("第二列") > 1 Then
b =r("第二列")
End If
If r("第三列") > 1 Then
s =r("第三列")
End If
If r("第四列") > 1 Then
g =r("第四列")
End If
'r("第五列") = q + b + s + g 蓝总,怎么这句代码保存不了
Next
[此贴子已经被作者于2023/4/20 11:58:09编辑过]