闪烁请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 闪烁请教

共有1715人关注过本帖树形打印复制链接主题：闪烁请教

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

闪烁请教

Post By：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控件的选择不同页面后事件执行，还是闪烁的厉害？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 19:19:00 [只看该作者]

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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/13 19:20:00 [只看该作者]

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

hbhb

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/7/14 0:04:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.zip

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：闪烁请教