以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口的timeticker事件闪屏（不太明显），怎么回事啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116629)
--  作者：guosheng
--  发布时间：2018/3/28 14:35:00
--  窗口的timeticker事件闪屏（不太明显），怎么回事啊？
如果默认不选择任何行，进入窗口后，在窗口表的第一行在不断刷新闪屏；如果在窗口表中选择了某一单元格，则不闪屏了。

Dim id=Tables("完善签约审批窗口_Table1").current("_identify")
DataTables("合同基本信息表").StopRedraw()     \'实现即时刷新数据功能
LockBaseMainForm()

If (user.group="工程一部" And user.isrole("录入"))  Or  (user.group="工程二部" And user.isrole("录入"))  Or  (user.group="设计部" And user.isrole("录入"))  
DataTables("合同基本信息表").RemoveFor("承办部门=\'"& user.group &"\' and 承办人 is null")
DataTables("合同基本信息表").AppendLoad("承办部门=\'"& user.group &"\' and 承办人 is null")
End If

UnLockBaseMainForm()
DataTables("合同基本信息表").ResumeRedraw()

Dim i=Tables("完善签约审批窗口_Table1").findrow("_identify="& id)
If i>0
    Tables("完善签约审批窗口_Table1").position=i
End If
[此贴子已经被作者于2018/3/28 15:14:50编辑过]
--  作者：有点甜
--  发布时间：2018/3/28 15:29:00
--  

动态加载的话，闪烁是避免不了的，你可以设置好间隔时间，不要太频繁刷新。