主题：[求助]如何实现分类统计的问题

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