主题：[求助]分两级统计的问题，急求，谢谢

DataTables("个人统计").datarows.Clear

Tables("个人统计").StopRedraw

Dim dt As DataTable = DataTables("个人信息")

Dim cList As List(of String()) = DataTables("个人信息").GetUniqueValues("","村","社")

For Each arys As String() In clist

    Dim dr As DataRow = DataTables("个人统计").AddNew

    dr("村") = arys(0)

    dr("社") = arys(1)

    Dim filter As String = "村='" & arys(0) & "' and 社='" & arys(1) & "'"

    dr("总人数") = dt.Compute("count(姓名)",filter)

Next

Tables("个人统计").ResumeRedraw

DataTables("个人统计").datarows.Clear

Tables("个人统计").StopRedraw

Dim dt As DataTable = DataTables("个人信息")

Dim cList As List(of String()) = DataTables("个人信息").GetUniqueValues("","村","社")

Dim prevC As String = ""

For Each arys As String() In clist

    Dim filter As String

Dim dr As DataRow

    If arys(0) <> prevC Then

        dr = DataTables("个人统计").AddNew

        dr("村") = arys(0)

        filter = "村='" & arys(0) & "'"

        dr("总人数") = dt.Compute("count(姓名)",filter)

        dr("其中女") = dt.Compute("count(姓名)",filter & " And 性别 = '女'")  

        prevC = arys(0)     

    End If

    dr = DataTables("个人统计").AddNew

    'dr("村") = arys(0)

    dr("社") = arys(1)

    filter = "村='" & arys(0) & "' and 社='" & arys(1) & "'"

    dr("总人数") = dt.Compute("count(姓名)",filter)

    dr("其中女") = dt.Compute("count(姓名)",filter & " And 性别 = '女'")

Next

Tables("个人统计").ResumeRedraw