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 列总和数量
我自己弄的 实现不了.

select sum(col1)-sum(col2) as a from #t where id<=3

同意LS的.

这个开始的时候我试过 好象是显示无效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 是不是下面有错?

提示什么错误?
Set Text7.DataSource = rs
可以这样写的?

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

就是两行一相减 就不行了

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

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

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