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了。
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了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货