各位大师小弟有一个小问题,想请教各位大师,还请各位大师多多帮忙
数据表内容如下:
序号 名称
1 A
2 B
3 C
4 D
5 E
7 G
8 A
9 D
10 DF希望在报表以如下形式显示名称 A 序号 1 | 序号2 名称 B
名称 C 序号 3 | 序号4 名称 D
名称 E 序号 5 | 序号7 名称 G
名称 A 序号 8 | 序号9 名称 D
名称 DF 序号 10
希望各位大师指导!!!
数据表内容如下:
序号 名称
1 A
2 B
3 C
4 D
5 E
7 G
8 A
9 D
10 DF希望在报表以如下形式显示名称 A 序号 1 | 序号2 名称 B
名称 C 序号 3 | 序号4 名称 D
名称 E 序号 5 | 序号7 名称 G
名称 A 序号 8 | 序号9 名称 D
名称 DF 序号 10
希望各位大师指导!!!
用代码控制,出数据的时候你可以增加一列自增长(id)什么的(目的是让记录成为有序),然后在报表里面用代码控制,设置一变量,判断与数据集里面相同的就按位显示!
---仅供参考!
up 继续!
如:ID_Num(为自增长id),序号,姓名------是你出的DBDataSet
代码:
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
beginend;procedure Memo6OnBeforePrint(Sender: TfrxComponent);
var
i:integer;
begin if ( <DBDataSet."ID_Num"> mod 2=1) then
begin
memo6.text:=<DBDataSet."序号">;
endend;procedure Memo8OnBeforePrint(Sender: TfrxComponent);
begin
if ((<Line>-1) mod 2 =1) then
begin
if ( <DBDataSet."ID_Num"> mod 2=0) then
begin
memo8.text:=<DBDataSet."序号">;
end
end;
end;procedure Memo7OnBeforePrint(Sender: TfrxComponent);
begin
if ( <DBDataSet."ID_Num"> mod 2=1) then
begin
memo7.text:=<DBDataSet."姓名">;
end
end;procedure Memo9OnBeforePrint(Sender: TfrxComponent);
begin
if ((<Line>-1) mod 2 =1) then
begin
if ( <DBDataSet."ID_Num"> mod 2=0) then
begin
memo9.text:=<DBDataSet."姓名">;
end
end
end;beginend.
可以实现你的需求 ,需要对显示行控制一下,就不举例了!