使用触发器可以完成。
较简单的是使用另一个TQuery元件Query1,
Query1.SQL=select max(itemno) from xxxx where productid=:productid
在操作该表的DataSet元件(假如是Table1)的OnBeforePost事件中写:begin
Query1.Active := False;
Query1.Params[0].Value := Table1.FieldByName('productid').Value;
Query1.Active := True;
Table1.FieldByName('itemno').Value := Query1.Fields[0].AsInteger + 1;
end;
较简单的是使用另一个TQuery元件Query1,
Query1.SQL=select max(itemno) from xxxx where productid=:productid
在操作该表的DataSet元件(假如是Table1)的OnBeforePost事件中写:begin
Query1.Active := False;
Query1.Params[0].Value := Table1.FieldByName('productid').Value;
Query1.Active := True;
Table1.FieldByName('itemno').Value := Query1.Fields[0].AsInteger + 1;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货