Dim rs As List(of Row) =Tables("窗口1_表A").GetCheckedRows
Tables("窗口3_表B").Filter = "[编号] ='"& r("编号") &"'"
试下这样