主题：复选框隐藏问题

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.rows.count - 1
    If i < t.TopPosition OrElse i > t.BottomPosition Then
        output.show(i)
    End If
Next

Dim t As Table = Tables("表A")
Dim idx As String = "-1,"
For i As Integer = 0 To t.rows.count - 1
    If i < t.TopPosition OrElse i > t.BottomPosition Then
        idx &= t.rows(i)("_Identify") & ","
    End If
Next
t.filter = "_Identify in (" & idx.trim(",") & ")"

 你说的勾选，指哪里的勾选？截图说明。

每一次筛选以后，勾选都会去掉啊，那你要做什么效果？