做一个临时表，加入一列项目列，输入各个需要统计的项目。

根据归属地动态添加列，然后循环每一行，统计。

参考代码

Dim dt1 As DataTable = DataTables("统计表")
Dim dt2 As DataTable = DataTables("人才库")
For Each dr As DataRow In dt1.DataRows
    Dim filter As String = ""
    Select Case dr("项目")
        Case "男"
            filter = "性别 = \'男\'"
        Case "大学本科"
            filter = "学历 = \'大学本科\'"
        Case "汉族"
            filter = "民族 = \'汉族\'"
        Case "36-45岁"
            filter = "年龄 >= 36 and 年龄 <= 45"
    End Select
    If filter = Nothing Then
        For Each dc As DataCol In dt1.DataCols
            If dc.name <> "项目" Then
                dr(dc.name) = Nothing
            End If
        Next
    Else
        For Each dc As DataCol In dt1.DataCols
            If dc.name <> "项目" Then
                dr(dc.name) = dt2.compute("count(姓名)", filter & " and 类别 = \'" & dc.name & "\'")
            End If
        Next
    End If
Next