主题：[求助]跨窗口填充问题

如果只勾选一行：
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

vs = vs.trim(",")

if vs > "" then

   Tables("窗口3_表B").Filter = "编号 in (" & vs & ")"

End if