请教有关sql的update更新数据表中记录的问题(100分)

vs_clbm := trim(frmSLD.edtmoldcode.Text);
vr_sssl := frmSLD.aqSLDmain.fieldbyname('yuansum').value;
vr_yssl := aqKC.fieldbyname('yuansum').value;
str:= 'update KCQKB set yuansum=yuansum+vr_sssl where moldcode="'+vs_clbm+'"';
query := TADOQuery.Create(Self);
query.Connection:= dmWarehouse.ACWarehouse;
query.SQL.Clear;
query.SQL.add(str);
query.ExecSQL;
为什么运行时总提示“参数vr_sssl没有默认值”的错误报警。

你在程序开始部分加一句初始化语句就没警告了

vr_sssl := frmSLD.aqSLDmain.fieldbyname('yuansum').AsInteger;
vr_yssl := aqKC.fieldbyname('yuansum').AsInteger;
上面兩個變量是Integer類型，才行能下面的UpDate

按照楼上修改后还是一样阿
难道是相关的数据表里的字段必须有默认值么？

多人接受答案了。