求救!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"语句,第二个表能写入.我不知道错误,望那位大哥大姐教我!  
 

查看回复