使用adoquery.post的时候出错？什么原因啊？

Question

ADOQuery2.Append ;
                    TranDataService.LogMessage('151');
                    ADOQuery2.FieldByName('ItemObjectID').AsString :=ADOQuery1.fieldByName('ItemObjectID').AsString ;
                    TranDataService.LogMessage('152');
                    ADOQuery2.fieldByName('ItemClassID').asstring:=ADOQuery1.fieldByName('ItemClassID').AsString;
                    TranDataService.LogMessage('153');
                    ADOQuery2.fieldByName('ItemObjectNo').asstring:= ADOQuery1.FieldByName('ItemObjectNo').AsString;
                    TranDataService.LogMessage('154');
                    ADOQuery2.FieldByName('Department_Guid').asstring:=ADOQuery1.FieldByName('Department_Guid').AsString;
                    TranDataService.LogMessage('155');
                    ADOQuery2.FieldByName('ItemClassName').asstring:=ADOQuery1.FieldByName('ItemClassName').AsString ;
                    TranDataService.LogMessage('156');
                    ADOQuery2.FieldByName('ItemTitle').asstring:=ADOQuery1.FieldByName('ItemTitle').AsString;
                   TranDataService.LogMessage('157');
                    ADOQuery2.FieldByName('Isfinished').AsInteger :=0;
                    TranDataService.LogMessage('158');
                    ADOQuery2.FieldByName('IsPassed').AsInteger :=0;
                    TranDataService.LogMessage('159');
                    stream.clear;
                    TranDataService.LogMessage('160');
                    TBlobField(ADOQuery1.FieldByName('Htmlin')).SaveToStream(Stream);
                    TranDataService.LogMessage('161');
                    TBlobField(ADOQuery2.FieldByName('Htmlin')).LoadFromStream(Stream);
                    TranDataService.LogMessage('162');
                    ADOQuery2.FieldByName('ExpireDate').asDatetime:=ADOQuery1.fieldByName('ExpireDate').AsDateTime ;
                   TranDataService.LogMessage('163');
                    ADOQuery2.Post ;运行到"163"这个地方还对着，但执行ADOQuery2.Post ;的时候出错，请问是什么原因？很着急

Answer 1

ADOQuery2.Edit;
ADOQuery2.Post;
就不会出错了

Answer 2

楼上说的对，post之前需要edit调用一下

Answer 3

post 之前先作个判断
比如:
with adoquery1 do
begin
  if not(State in [dsEdit,dsInsert]) then
  Edit;
  Post;
end;