我仍然无法理解为什么它不起作用
我尝试使用adodb,Dao控制
但我不满意因为我不知道ADODB,DAO和
我剩下的应用程序使用adodc控件,所以如果我使用其他控件它会弄得一团糟
Dim large_tbl As String
Dim sell_large As String
large_tbl = "SELECT Sum(No_Of_Bottle) FROM add_cotton where Cateogry='Large'"
sell_large = "SELECT Sum(Quantity) FROM Sell_Detail where Cateogry='Large'"
Adodc1.RecordSource = large_tbl - sell_large
Adodc1.Refresh
End Sub