麻烦来了 我在原来的代码基础上加上如下的代码 出现自动退出Foxtable 删掉代码就没事 麻烦帮我看看 For Each r As Row In Tables("高值溯源追踪").Rows
If r.IsNull("数量2") Then
r("数量2") = 0
'r("让利价2")=0
End If
If r.IsNull("让利价2") Then
'r("数量2") = 0
r("让利价2")=0
End If
If r.IsNull("数量3") Then
r("数量3") = 0
'r("让利价2")=0
End If
If r.IsNull("让利价3") Then
'r("数量2") = 0
r("让利价3")=0
End If
If r.IsNull("数量4") Then
r("数量4") = 0
'r("让利价2")=0
End If
If r.IsNull("让利价4") Then
'r("数量2") = 0
r("让利价4")=0
End If
If r.IsNull("数量5") Then
r("数量5") = 0
'r("让利价2")=0
End If
If r.IsNull("让利价5") Then
'r("数量2") = 0
r("让利价5")=0
End If
If r.IsNull("数量6") Then
r("数量6") = 0
'r("让利价2")=0
End If
If r.IsNull("让利价6") Then
'r("数量2") = 0
r("让利价6")=0
End If
Next
加好友 
发短信
Post By：2016/8/21 16:02:00 [显示全部帖子]
