在MasterData上放两个MEMO(memo1,memo2),memo1 放 Field1 memo2为空.
procedure Band4OnBeforePrint(Sender: TfrxComponent);
var
ss:string;
begin
if <line> mod 2 =0 then
begin
memo2.memo.text := ss;
ss :=<"Field1">;
MasterData.visible := true;
end
else
begin
memo2.memo.text := ss;
ss :=<"Field1">;
MasterData.visible := False;
end;
在MasterData上放两个MEMO(memo1,memo2),memo1 放 Field1 memo2为空.
procedure MasterDataOnBeforePrint(Sender: TfrxComponent);
var
ss:string;
begin
if <line> mod 2 =0 then
begin
memo2.memo.text := ss;
ss :=<"Field1">;
MasterData.visible := true;
end
else
begin
memo2.memo.text := ss;
ss :=<"Field1">;
MasterData.visible := False;
end;