一种方法是采用参数,在*.rav文件中,拖放datatext,将他的datafield属性设置为param.param1, 程序: with RvProject1 do begin SetParam('Param1',edit1.text); ExecuteReport('Report1'); Close; end; 另一种方法是:查找对象,代码: var Mypage:TRavePage; MyText:TRaveText; begin with RvProject1.ProjMan do begin Mypage:=FindRaveComponent('Report1.Page1',nil) as TravePage; Mytext:=FindRaveComponent('Text1',MyPage) as TraveText; Mytext.Text:= edit1.text; end; 试一下,很简单的
程序:
with RvProject1 do
begin
SetParam('Param1',edit1.text);
ExecuteReport('Report1');
Close;
end;
另一种方法是:查找对象,代码:
var
Mypage:TRavePage;
MyText:TRaveText;
begin
with RvProject1.ProjMan do
begin
Mypage:=FindRaveComponent('Report1.Page1',nil) as TravePage;
Mytext:=FindRaveComponent('Text1',MyPage) as TraveText;
Mytext.Text:= edit1.text;
end;
试一下,很简单的