急！！！

Question

本人刚学delphi
我程序如下
n:=strtoint(edit1.text);
id:=strtoint(combobox1.text);
with query1 do
  begin
      close;
      sql.clear;
      sql.add('select 数量 from 仓库清单 where 商品id=:id');
      parambyname('id').asstring:=combobox1.text;
      open;
  end;
  
table1.setfields([id,query1.fields[1].value+n]);
我想修改仓‘库清单表‘中id=combobox1.text项的‘数量‘=query1.fields
[1].value+n
但运行时出错
为什么？
是不是table1.setfields用错了？

Answer 1

Query 中的数据不能这样更新，使用一个 Update 语句实现。Sql.Clear;
Sql.Add('update 仓库清单 set 数量=:NUM where 商品id=:id');
ParamByName('NUM').AsInteger := m + n;
ParamByName('id').AsString := ComboBox1.Text;
ExecSQL;Table 可以直接更新字段。
  Table1.Fields['abc'] := '';