主题：闪烁请教

 呃，filter执行的时候，肯定会闪，但是闪得多离谱做例子发上来看看。

或者你试试把代码写到 SelectedIndexChanging 事件

SelectedIndexChanging 事件

 

Dim pg As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim n As String = pg.tabpages(e.NewIndex).Text

Select Case n
    Case "page1"
       
        Dim t As String = "窗口1_table1"
        Tables(t).StopRedraw
        Tables(t).Filter = "第一列 = '" & n & "'"
        Tables(t).ResumeRedraw
    Case "page2"
       
        Dim t As String = "窗口1_table2"
        Tables(t).StopRedraw
        Tables(t).Filter = "第一列 = '" & n & "'"
        Tables(t).ResumeRedraw
    Case "page3"
       
        Dim t As String = "窗口1_table3"
        Tables(t).StopRedraw
        Tables(t).Filter = "第一列 = '" & n & "'"
        Tables(t).ResumeRedraw
End Select