主题：求一段复选框筛选代码

AfterCheckRow事件

Dim t1 As Table = e.Form.controls("Table1").Table
Dim t2 As Table = e.Form.controls("Table2").Table
Dim filter As String = "-1"
For Each r As Row In t1.GetCheckedRows
    filter = filter & "," & r("id") & ""
Next
t2.Filter = "id in (" & filter & ")"