R
realLearning
Unregistered / Unconfirmed
GUEST, unregistred user!
动态的设置报表中的内容
uses
RVClass, RVProj, RVCsStd;
var
MyPage: TRavePage;
MyText: TRaveText;
begin
RaveProject1.Open;
With RaveProject1.ProjMando
begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
//查找PAGE
MyText := FindRaveComponent('Text1',MyPage) as TRaveText; //查找TEXT
MyText.Text := 'Boland Delphi';
//设置报表中文本内容
MyText.Color := clGreen; //设置颜色
end;
{ with }
RaveProject1.ExecuteReport('Report1');
RaveProject1.Close;
end;
上述代码在查找TEXT那始终返回空值,不知为何,后来没有办法只好直接用对象的索引号代替了。
uses
RVClass, RVProj, RVCsStd;
var
MyPage: TRavePage;
MyText: TRaveText;
begin
RaveProject1.Open;
With RaveProject1.ProjMando
begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
//查找PAGE
MyText := FindRaveComponent('Text1',MyPage) as TRaveText; //查找TEXT
MyText.Text := 'Boland Delphi';
//设置报表中文本内容
MyText.Color := clGreen; //设置颜色
end;
{ with }
RaveProject1.ExecuteReport('Report1');
RaveProject1.Close;
end;
上述代码在查找TEXT那始终返回空值,不知为何,后来没有办法只好直接用对象的索引号代替了。