还有一个问题有个错误:"多步操作产生错误,请检查每一步的状态值 "

Question

还有一个问题有个错误:"多步操作产生错误,请检查每一步的状态值 "
procedure TUserInfo.FormShow(Sender: TObject);
begin
  //到这里有错误,如果去掉一个就可以?
  ADODataSet1.Active:=true;
  ADOQuery1.Active:=true;//我是用TDBLOOKUPCOMBOBOXEH,ADOQuery1是它的Listsource.end;

Answer 1

if not ADODataSet1.Active then
    ADODataSet1.Active:=true;
if not ADOQuery1.Active then
    ADOQuery1.Active:=true;另外，如果AdoQuery1的SQL是有结果集返回的，才能使用AdoQuery1.Active := true;
无结果集返回的，比如update,insert,delete类的sql是不能使用AdoQuery1.Active := true或者AdoQuery1.Open的，而应该使用AdoQuery1.ExecSql;

Answer 2

我是加到Formshow中,不是一样的吗?

Answer 3

我加 到OnCreate中还是一样的报错
procedure TUserInfo.FormCreate(Sender: TObject);
begin
  inherited;
  if not ADODataSet1.Active then
     ADODataSet1.Active:=true;
  if not ADOQuery1.Active then
     ADOQuery1.Active:=true
end;