再次请教复合分组问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

职工一览表姓名，性别，职务，职称。按老师编写如下代码的如下代码编制综合表非常方便。

Dim dt As DataTable = DataTables("职工一览表")

Dim dt2 As DataTable = DataTables("综合分类")

dt2.DataRows.Clear

Dim ss() As String = {"性别","职务"}

For Each lb As String In ss

Dim dr As DataRow= dt2.AddNew

dr("分类")="按" & lb

For Each s As String In dt.GetValues(lb,lb & " is not null")

dr = dt2.AddNew

dr("分类")=s

dr("人数")=dt.Compute("count(姓名)", lb & "='" & s & "'")

但，现在如果要编制如下复合分组表，请问代码如何修改，再次谢谢了！

分类人数其中：男女

职务

职称

：

主题：再次请教复合分组问题