CommandText语句咨询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → CommandText语句咨询

共有3193人关注过本帖树形打印复制链接主题：CommandText语句咨询

guosheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

CommandText语句咨询 发帖心情

Post By：2019/9/27 10:17:00 [只看该作者]

测试当 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

……