以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 空值替换的求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76443)

--  作者:huangfanzi
--  发布时间:2015/10/29 10:53:00
--  [求助] 空值替换的求助
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编辑过]

--  作者:大红袍
--  发布时间:2015/10/29 10:55:00
--  

 

r("已完工量") = val(_dt生产计划.Compute("Sum(目标单卷重)","配属合同号 = \'" & r("合同号") & "\'And 计划工序 = \'生产入库\' And 工序状态 = \'已完成\'"))