rs.Open "select ((select sum(xxx) from cplk)-(select sum(yyy) from cplk)) as sum1 from cplk where (ddd='xxx' and 规格 like '%" & Text6 & "%')", con, 1, 3
我想显示 XXX 列总和减YYY 列总和数量
我自己弄的 实现不了.

这个开始的时候我试过 好象是显示无效NULL

Set rs = New ADODB.Recordset
If Text6.Text = "" Then
MsgBox "请输入产品规格", vbExclamation, "提示"
End If
rs.Open "select sum(xxx)-sum(yyy) as sum1 from cplk where (zzz='sss'and 规格 like '%" & Text6 & "%')", con, 1, 3
If IsNull(rs!sum1) Then
MsgBox "没有找到相关数据", vbExclamation, "提示"
Else
Set Text7.DataSource = rs
Text7.Text = rs!sum1
End If
结果是要赋值给TEXT 是不是下面有错?

去掉判断的话 就显示无效NULL
Set Text7.DataSource = rs
可以这样写的?
应该可以的 因为我单显示一行总和的话 可以显示数据的

就是两行一相减 就不行了

还是显示无效NULL
这个跟我上面的那个 就是多了个括号吧..
问题应该不是在那 因为我也加过括号

出错在这行 Text7.Text = rs!sum1
显示无效使用NULL

rs.Open "select isnull(sum(col1)-sum(col2),0) as col from t"
提示函数参数个数不对....

汗了...
Set rs = New ADODB.Recordset
If Text6.Text = "" Then
MsgBox "请输入产品规格", vbExclamation, "提示"
End If
rs.Open "select sum(xxx) as sum1 from cplk where (zzz='sss' and 规格 like '%" & Text6 & "%')", con, 1, 3
If IsNull(rs!sum1) Then
MsgBox "没有找到相关数据", vbExclamation, "提示"
Else
Set Text7.DataSource = rs
Text7.Text = rs!sum1
End If
如果不减的话 这个可以正常显示数据的 就是一减出现无效NULL

谢谢各位的忙...问题已解决
问题出在 YYY 这个字段上 是我太粗心了..浪费大家这么多的时间
前面是因为测试的XXX 字段是正常,以为应该不是字段问题
后来用YYY一试 发现数量没正常显示 才知道是这个字段出了问题