帮忙看这段代码有什么问题？？运行产生异常，在append处。

Question

procedure TForm1.PostBase(Query: TQuery);
begin
  if Query.Active=True then
    Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('select * from cp_orderbase');
  Query.Open;
  Query.Append;//这里总不对，怎么改？
  with Query do
  begin
    FieldByName('OrderNo').Value:=LedtOrderNo.Text;
    FieldByName('ProduceType').Value:=CBhtlb.Text;
    ......
  end;
  try
    Query.Post;
  finally
    Query.Close;
  end;
end;

Answer 1

Query.Active=false;代替Query.Close;
Query.Active=True;代替Query.Open;

Answer 2

如果是BDE的TQuery的话，把RequestLive属性设置为：True

Answer 3

不太明白,你Query.Append的用法耶,你解释一下呢