procedure OpenData(SqlText:string; Cds : TSimpleDataSet);
begin
  try
    Cds.Close;
    Cds.DataSet.CommandText:=SqlText;
    Cds.Open;
  except
    Application.MessageBox('打开数据错误。',Errorinfo,$10);
    Abort;
  end;
end;报错就是一个很简单的 select语句都报错 如果写成cds.dataset.open;又不报错,有什么方法可以还是写成cds。open;这个程序我是在修改别人的,不可能重写的,我都怕了delphi了。