Dim idxs As String = "-1,"For Each r As Row In Tables("统计人员表").GetCheckedRows() idxs = idxs & r("_Identify") & ","Next
Tables("统计人员表").Filter = "_Identify in (" & idxs.trim(",") & ") and 你的表达式"