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