用什么控件可以显示这样的结果

[我不要昵称]

------------------------------------------------------------------------|
| 部门 |姓名 | 性别| |
|_____________|_____|______|____________________________________________|
| |张三 | 男 | |
| |_____|______|____________________________________________|
| 人事部 |李四 | 女 | |
| |_____|______|____________________________________________|
| |.... |.... | |
|_____________|_____|______|____________________________________________|

[conis]

用目录树
TTreeView

[我不要昵称]

up

[aiirii]

http://dksoft.cnblogs.com/articles/30561.html

3、分组

一旦为ClientDataSet定义了一个索引，就可以通过该索引对数据进行分组了。实际上，一组被定义为连续记录的一个列表（根据索引），记录中被索引的字段的值不会改变。例如，如果有一个基于国家的索引，带有该国家的所有地址都将归为一组。
cdsCalcs范例有一个ClientDataSet组件，它同样从DBDEMOS数据库的Country表格中读取其数据。该操作可以在设计时，使用ClientDataSet组件快捷菜单的Assign Local Data命令来执行。为了在运行时读取数据，获得一个更新的快照，可以向窗体添加一个DataSetProvider组件，如下连接三个组件：
Object Table :TTable
active = true
databasename = 'dbdemos'
tablename = 'country.db'
end
object datasetprovider1: TDataSetProvider
dataset = table1
end
object clientdataset1: tclientdataset
providername = 'datasetprovider1'
end
现在我们来看看组的定义。该定义可以通过为索引指定一个分组级别，与索引定义一起获得：
object clientdataset1: tclientdataset
indexdefs = <
item
name = 'clientdataset1index1'
fields = 'continent'
groupinglevel = 1
end>
indexname = 'clientdtaset1index1'
当拥有了一组之后，我们可以在DBGrid中向用户显示分组结构。只需为分组字段（在范例中是Continent字段）处理OnGetText事件，只有当记录是组的第一个记录是才显示文本：
procedure TForm1.ClientDataSet1ContinentGetText(Sender:TField;
var Text:String;DisplayText:Boolean);
begin
if gbFirst in ClientDataSet1.GetGroupState(1) then
Text:= sender.asstring
else
text:='';
end;

[liuqifeiyu]

如果只是显示，用报表控件REPORTMACHINE，也就是合并单元格功能

[阿三]

可以用cxGrid，你可以找一下。

[Cassava]

cxGrid就可以

[t_zhangwang_1980]

也可以自己用TextOut写呀！！！或者QReport组件

[cncharles]

DevExpress cxGrid可的.

[FigoZhu]

报表组件或者一些功能强一点的Grid组件都可以的。

[FigoZhu]

报表组件或者一些功能强一点的Grid组件都可以的。