如果只勾选一行: Dim rs As List(of Row) = Tables("窗口1_表A").GetCheckedRows() if rs.Count > 0 Then Tables("窗口3_表B").Filter = "[编号] = '" & rs(0)("编号") & “‘” End if
如果要勾选多行: Dim vs As String For Each r As Row In Tables("窗口1_表A").GetCheckedRows() vs = "'" & r("编号") & “’," Next