职工一览表 姓名，性别，职务，职称。按老师编写如下代码的如下代码编制综合表非常方便。
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 & "'")
Next
NEXT
但，现在如果要编制如下复合分组表，请问代码如何修改，再次谢谢了！
分类 人数 其中：男 女
职务
职称
：
：
加好友 
发短信
Post By：2015/6/8 17:52:00 [只看该作者]
