测试 当 values("应结转服务费金额") 返回为空时,没有执行黄色阴影的代码,该怎么改啊,如果values("应结转服务费金额")为空,则用0代替。
用 iif(values("应结转服务费金额") is null,0,values("应结转服务费金额") ) 来代替红色阴影的代码,提示,不能识别null。
……
cm d.Comm andText = "Sel ect 应结转租金金额,应结转服务费金额 From {租赁项目结转明细表} Where 合同编号 = '" & cstr(ep("合同编号")) & "' and 应结转日期='"& cstr(ep("计费日期")) &"'"
Dim Values2 = cm d .ExecuteValues
……
cm d.Comm andText = "U PDATE 租赁项目结转明细表 SET 应结转租金金额 ='"& round2(val(ep("应收金额"))+Values2("应结转租金金额"),2) &"',应结转租金税额='"& zs1 &"' WHERE 合同编号='"& htbh &"' and 应结转日期='"& cstr(ep("计费日期")) &"'"
cm d.Execute NonQuery
……