coldew:你能在说明白点吗?
我在报表上frMemoView 的begin
END 之间 写上了
begin
frVariables['str']:=EndDateEdt.Text;
end 然后预览报错说 没有定义EndDateEdt.Text,这是怎么回事情?
2.这个函数是它自带的吗,在那里
begin
frVariables['str'] := Form1.EndDateEdt.Text;
end
你应这样写,你得指写EndDateEdt是那个Form上的才可。
当然了,这样怕也不行,你最好还是通过参数据变量来作
procedure TMainFrm.bbPreviewClick(Sender: TObject);
begin
if adodMain.IsEmpty then
Exit;
if sReportFileName = '' then
Exit;
if not FileExists(sReportFileName) then
Exit;
frReport.LoadFromFile(sReportFileName);
frReport.Dictionary.Variables['SysVar'] := SysVar;
//为报表添加参数
frReport.ShowReport;
end;
然后再在TfrMemoView的begin
end间加上你的程序
begin
text := SysVar;
//SysVar就是添加的系统变量
end;