- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 闪烁请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71547)
-- 发布时间：2015/7/13 19:10:00
-- 闪烁请教
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控件的选择不同页面后事件执行，还是闪烁的厉害？
-- 发布时间：2015/7/13 19:19:00
--
呃，filter执行的时候，肯定会闪，但是闪得多离谱做例子发上来看看。
-- 发布时间：2015/7/13 19:20:00
--
或者你试试把代码写到 SelectedIndexChanging 事件
-- 发布时间：2015/7/14 0:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.zip |
-- 发布时间：2015/7/14 0:18:00
--
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