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