fastreport 如何使数据自动扩展

fastreport 怎么使数据自动扩展
现在又一组数据，结构及数据如下：
类型  姓名     年薪
 2    tom    200
 1    jack   200
 3    lucy   100
 2    tim    100
 3    henry  300
...
要怎么在fastreport中实现如下的效果
类型  姓名
1    jack   200
       小计   200
————————————
2    tom    200
     tim    100  
      小计   300
————————————
3    henry  300
     lucy   100
     小计    400
————————————
      合计   900

按类型分类扩展，根据后面姓名的条数，前面的分类就自动扩展合并显示类型
要如何实现，求解,
有实例的话最好  delphiort fastreport
[解决办法]
var v:String;  //全局变量

procedure frxDBDataset1uper_depart_idOnAfterData(Sender: TfrxComponent);
begin //分组的字段
   frxDBDataset1uper_depart_id.Visible:=(v<>frxDBDataset1uper_depart_id.Value);
   v:=frxDBDataset1uper_depart_id.value;  
end;
  
procedure GroupFooter1OnAfterPrint(Sender: TfrxComponent);
begin  //组脚
  frxDBDataset1uper_depart_id.Visible:=True;            
end;

[解决办法]
这个用分组或主从表都可以实现，具体，看看自带的DEMO