主题：闪烁请教

Select Case n

    Case "物料支出"

        

        Dim t As String = "frmXjllbList_table7"

        Tables(t).StopRedraw

        Tables(t).Filter = "pzmxkm1 = '" & n & "'"

        Tables(t).ResumeRedraw

    Case "费用支出"

        

        Dim t As String = "frmXjllbList_table10"

        Tables(t).StopRedraw

        Tables(t).Filter = "pzmxkm1 = '" & n & "'"

        Tables(t).ResumeRedraw

end select

大师为何这与的代码，tabcobtrol控件的选择不同页面后事件执行，还是闪烁的厉害？