VBA SQL 求和应用

zw2602

我想对字段 in_qty 和字段out_qty，分别求和后在进行相减，但是字段如果为空，返回结果为NULL，所以给每个字段使用isnull如下，但还是报错，各位帮看一下哪里出了问题？？

SQL = "select sum(isnull(in_qty,0)-isnull(out_qty,0))  from RM_stock where m_code='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"

如下表达式没问题，但数据为空的都要写成0才行
SQL = "select sum(in_qty-out_qty)  from RM_stock where m_code='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"

microyip

这个isnull要视乎你的数据源是什么，如果数据源是Excel或者Access，是没问题的，但如果是SQL，则要改成

1. SQL = "select sum(if(in_qty is null,0,in_qty)-if(out_qty is null,0,out_qty))  from RM_stock where m_code='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"

复制代码

huang1314wei

microyip 发表于 2018-7-30 08:01
这个isnull要视乎你的数据源是什么，如果数据源是Excel或者Access，是没问题的，但如果是SQL，则要改成

应该用case when 吧，SQL当中if只能用在块，不能用在select 当中吧

huang1314wei

发贴要说明你的数据源，不要只列出SQL语句，因为不同的数据源SQL语句写法有区别的，以你现在这个问题，用isnull如果是sql server数据源，理论上应该没有问题的

microyip

huang1314wei 发表于 2018-7-30 08:14
应该用case when 吧，SQL当中if只能用在块，不能用在select 当中吧

你留意一下，我写的“如果……如果……”

zw2602

microyip 发表于 2018-7-30 08:01
这个isnull要视乎你的数据源是什么，如果数据源是Excel或者Access，是没问题的，但如果是SQL，则要改成

感谢两位回复

数据源是ACESS

试了一下代码，提示错误 “undefined function if in expression”, 之后将if 改为IIF，运行ok，何故？

SQL = "select sum(iif(in_qty is null,0,in_qty)-iif(out_qty is null,0,out_qty))from RM_stock where m_code='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"

microyip

zw2602 发表于 2018-7-30 09:07
感谢两位回复

数据源是ACESS

对不起，我写漏了，应该是IIF，因为直接运算是使用IIF的，正常流程运走才使用IF