For Each r As Row In Tables(e.Form.Name & "_table1").Rows
......
r("已完工量") = IsNull(_dt生产计划.Compute("Sum(目标单卷重)","配属合同号 = '" & r("合同号") & "'And 计划工序 = '生产入库' And 工序状态 = '已完成'"),0)
......
上面的代码中，ISNULL的用法显示是错的，但不知应该如何写，我现在的写法是：
if _dt生产计划.Compute("Sum(目标单卷重)","配属合同号 = '" & r("合同号") & "'And 计划工序 = '生产入库' And 工序状态 = '已完成'") = nothing then
r("已完工量") = 0
else
r("已完工量") = _dt生产计划.Compute("Sum(目标单卷重)","配属合同号 = '" & r("合同号") & "'And 计划工序 = '生产入库' And 工序状态 = '已完成'")
end if
我的写法太啰嗦了。
请老师指导一下，谢谢！
[此贴子已经被作者于2015/10/29 10:53:32编辑过]
加好友 
发短信
Post By：2015/10/29 10:53:00 [只看该作者]
