各位大师小弟有一个小问题,想请教各位大师,还请各位大师多多帮忙
数据表内容如下:
序号  名称
 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.   

    up 一个先!
    用代码控制,出数据的时候你可以增加一列自增长(id)什么的(目的是让记录成为有序),然后在报表里面用代码控制,设置一变量,判断与数据集里面相同的就按位显示!  
                                   ---仅供参考! 
                   up 继续!
      

  2.   

    用代码控制,出数据的时候你可以增加一列自增长(id)什么的(目的是让记录成为有序),然后在报表里面用代码控制,设置一变量,判断与数据集里面相同的就按位显示!
    如: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.
    可以实现你的需求 ,需要对显示行控制一下,就不举例了!