L
licoo
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TPrintTaskTableForm.btnPrintClick(Sender: TObject);
var
Car: TOldCar;
PrintData: TADODataSet;
begin
Car:= TOldCar.Create;
PrintData:= TADODataSet.Create(self);
try
PrintData:= Car.GetTaskTable(self.edtTaskID.Text);//函数的返回值是TADODataSet类型
self.frdTaskTable.DataSet:= PrintData;
self.frrTaskTable.ShowReport;
finally
Car.Free;
end;
end;
上面这段代码的功能是给FastReport的数据源控件frDBDataSet动态绑定一个ADODataSet(即PrintData),该ADODataSet的数据从函数Car.GetTaskTable处获得,当执行到self.frrTaskTable.ShowReport行时一直报错“Missing Connection or SonnectionString”,请各位大侠帮我看看是怎么回事,分不够在加,感激不尽!!
var
Car: TOldCar;
PrintData: TADODataSet;
begin
Car:= TOldCar.Create;
PrintData:= TADODataSet.Create(self);
try
PrintData:= Car.GetTaskTable(self.edtTaskID.Text);//函数的返回值是TADODataSet类型
self.frdTaskTable.DataSet:= PrintData;
self.frrTaskTable.ShowReport;
finally
Car.Free;
end;
end;
上面这段代码的功能是给FastReport的数据源控件frDBDataSet动态绑定一个ADODataSet(即PrintData),该ADODataSet的数据从函数Car.GetTaskTable处获得,当执行到self.frrTaskTable.ShowReport行时一直报错“Missing Connection or SonnectionString”,请各位大侠帮我看看是怎么回事,分不够在加,感激不尽!!