呵呵,我想起来了,就是那个 rtInserted 属性,谢谢。
更改库存表,可以遍历 销售表的每条记录,查到在库存表中的对应记录,查到,
则更新数量,查不到,则增加新记录。
table1.first;
while not table1.eof do begin
if table2.FindKey(table1.fieldbyname('商品编号').AsString) then
begin table2.edit;
table2.fieldbyname('数量').Asinteger := table2.fieldbyname('数量').AsInteger + table1.fieldbyname('数量').Asinteger;
table2.post
end else begin //插入新记录
table2.Append;
//设置新记录属性
table2.fieldbyname('数量').Asinteger :=
table1.fieldbyname('数量').Asinteger;
table2.post
table1.Next;
end; //while