求救!Adotable写入数据出问题!
我用一Adotable写入数据到数据库中两个表中出错,代码如下:
with Adotable1 do begin
Close;
TableName:='order_in'; //写入进货定单表
Open;
id:=createid(Table_InOrder);
Append;
FieldByName('order_id').Value := 'oi'+id;
FieldByName('book_name').Value := Trim(edit1.Text);
FieldByName('prov_id').Value := Trim(dbedit1.Text);
FieldByName('fetch_date').Value := cxDateEdit1.Date;
FieldByName('book_num').Value := strtoint(Trim(edit2.Text));
FieldByName('hander').Value := username;
FieldByName('oper_date').Value := date();
Post;
end;
with adotable1 do begin
Close;//写入进货定单条目
TableName:='sell_case';
Open;
First;
for i:=1 to Row do
begin
// id := createid(adotable1);
Append;
FieldByName('order_id').Value:='oi'+id;
FieldByName('book_name').Value:=sellbooks[i-1].bookname;
FieldByName('book_sum').Value:=sellbooks[i-1].booknum;
Post;
Next;
end;
end;
出现的提示: 多步操作产生错误,请检查每一步的状态值!
如果我删除第一个表的"post"语句,第二个表能写入.我不知道错误,望那位大哥大姐教我!