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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口闪动问题

共有2762人关注过本帖树形打印复制链接主题：窗口闪动问题

qinlao666

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

加好友

发短信

等级：一尾狐帖子：443 积分：3784 威望：0 精华：0 注册：2015/3/3 10:06:00

窗口闪动问题 发帖心情

Post By：2015/10/12 16:47:00 [只看该作者]

老师我在自己做的小例里面（数据和表就几个）设置下列的代码，窗口就不闪动，

可是把这段代码复制我的系统中，数据没刷新一次，就跳一次，这是什么原因呢

是因为我系统中的数据多就好闪动吗？

Dim t As Table = Args(0)
Dim flt As String = t.Filter       '获取过滤条件
Dim Int As Integer = t.Position    '获取行位置
Dim p As point = t.ScrollPosition '获取行在屏幕中位置
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    Forms(frm.name).StopRedraw()
    t.StopRedraw
    t.DataTable.Load(True)
    t.Filter = flt
    t.Position = Int
    t.ScrollPosition = p
    t.ResumeRedraw
    Forms(frm.name).ResumeRedraw()
End If

大红袍

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

加好友

发短信

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

Post By：2015/10/12 16:51:00 [只看该作者]

加上代码看看

Dim t As Table = Args(0)
Dim flt As String = t.Filter       '获取过滤条件
Dim Int As Integer = t.Position    '获取行位置
Dim p As point = t.ScrollPosition '获取行在屏幕中位置
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    Forms(frm.name).StopRedraw()
    t.StopRedraw
    systemready = False
    t.DataTable.Load(True)
    t.Filter = flt
    t.Position = Int
    t.ScrollPosition = p
    systemready = True
    t.ResumeRedraw
    Forms(frm.name).ResumeRedraw()
End If