再看看这段代码吧,该怎么改才能在Access正运行呢?请指教!错误提示:“操作必须使用一个可更新的查询”。OperationQuery.SQL.Text:='Update RationData Set Price=ManPrice+(Select Sum(Price) From DataCenter Where Num='+Edt_Num.Text+')'
+',MainPrice=(Select Sum(Price) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Main'+''''+')'
+',MainCost=(Select Sum(Cost) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Main'+''''+')'
+',SubPrice=(Select Sum(Price) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Sub'+''''+')'
+',SubCost=(Select Sum(Cost) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Sub'+''''+')'
+' Where ID='+Edt_Num.Text;
OperationQuery.ExecSQL;
+',MainPrice=(Select Sum(Price) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Main'+''''+')'
+',MainCost=(Select Sum(Cost) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Main'+''''+')'
+',SubPrice=(Select Sum(Price) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Sub'+''''+')'
+',SubCost=(Select Sum(Cost) From DataCenter Where Num='+Edt_Num.Text+' and Sort='+''''+'Sub'+''''+')'
+' Where ID='+Edt_Num.Text;
OperationQuery.ExecSQL;
这种形式的access不支持
我尝试过了
ParameterCheck在Access下是需要设为False的。楼主可以试试!