Dim acs As List(Of String) = Tables("统计汇总_Table1").DataTable.GetValues("案号", Tables("统计汇总_Table1").Filter)Dim cnt As Integer = acs.Counte.Form.Controls("案件数1").text = cnt