多个单记录报表选择哪一个打印哪一个
时间：2020-02-19 访问量：1140
procedure frxReportOnStartReport(Sender: TfrxComponent);
begin
if =true then
Page1.visible:=true
else
Page1.visible:=False;
if =true then
Page2.visible:=true
else
Page2.visible:=False;
if =true then
Page3.visible:=true
else
Page3.visible:=False;
if =true then
Page4.visible:=true
else
Page4.visible:=False;
if =true then
Page5.visible:=true
else
Page5.visible:=False;
if =true then
Page6.visible:=true
else
Page6.visible:=False;
if =true then
Page7.visible:=true
else
Page7.visible:=False;
if =true then
Page8.visible:=true
else
Page8.visible:=False;
if =true then
Page9.visible:=true
else
Page9.visible:=False;
if =true then
Page10.visible:=true
else
Page10.visible:=False;
if =true then
Page11.visible:=true
else
Page11.visible:=False;
if =true then
Page12.visible:=true
else
Page12.visible:=False;
if =true then
Page13.visible:=true
else
Page13.visible:=False;
if =true then
Page14.visible:=true
else
Page14.visible:=False;
if =true then
Page15.visible:=true
else
Page15.visible:=False;
if =true then
Page16.visible:=true
else
Page16.visible:=False;
if =true then
Page17.visible:=true
else
Page17.visible:=False;
if =true then
Page18.visible:=true
else
Page18.visible:=False;
if =true then
Page19.visible:=true
else
Page19.visible:=False;
if =true then
Page20.visible:=true
else
Page20.visible:=False;
if =true then
Page21.visible:=true
else
Page21.visible:=False;
end;
begin
end.
售前咨询专员
