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

sorry
我这里测试 成功.

Text7.Text =iif(isnull(rs!sum1),0,rs!sum1)

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

create table t(
id int,
col1 int,
col2 int
)
insert into t values(1,12,45)
insert into t values(2,2,10)
insert into t values(3,13,21)
insert into t values(4,43,64)
insert into t values(5,99,74)

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=myData;User ID=sa;Password=admin;"
rs.CursorLocation = adUseClient
rs.Open "select (sum(col1)-sum(col2)) as col from t", con, adOpenKeyset, adLockPessimistic, adCmdText
If rs.RecordCount > 0 Then
Set Text1.DataSource = rs
Text1.Text = rs.Fields(0).Value
End If

测试成功.

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

這個少了()
rs.Open "select isnull((sum(col1)-sum(col2)),0) as col from t"