以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码动态绑定table时闪烁的现象  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65011)

--  作者:新航程小何
--  发布时间:2015/3/7 10:31:00
--  用代码动态绑定table时闪烁的现象

各位老师,我使用了如下代码,对窗口中的table表进行动态的绑定,结果出现切换闪烁的情况,请问老师,怎么解决这个问题?

button1_click事件

forms("育苗作业记录").show

If forms("育苗作业记录").opened Then

Tables("育苗作业记录_Table1").DataSource = DataTables("育苗记录")

Dim trv As WinForm.TreeView = Forms("育苗作业记录").Controls("TreeView1")

trv.BuildTree("育苗记录", "育苗基地名称|苗床|编号")

Forms("育苗作业记录").Controls("gb1").text ="育苗记录"

End If

button2_click事件

forms("育苗作业记录").show

If forms("育苗作业记录").opened Then

Tables("育苗作业记录_Table1").DataSource = DataTables("幼苗领取记录")

Dim trv As WinForm.TreeView = Forms("育苗作业记录").Controls("TreeView1")

trv.BuildTree("幼苗领取记录", "幼苗来源|园区名称|编号")

Forms("育苗作业记录").Controls("gb1").text ="幼苗领取记录"

End If


图片点击可在新窗口打开查看此主题相关图片如下:截图20150307103022.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/3/7 10:34:00
--  
那里闪? 窗口闪?  表闪?  你 这个是停靠窗口?
--  作者:Bin
--  发布时间:2015/3/7 10:34:00
--  
表应该不会闪,闪就停止绘制表

Tables("育苗作业记录_Table1").StopRedraw
Tables("育苗作业记录_Table1").DataSource = DataTables("育苗记录")
Tables("育苗作业记录_Table1").ResumeRedraw

--  作者:新航程小何
--  发布时间:2015/3/7 11:41:00
--  
bin老师,是这样的,表头的名称是在切换,比如从表A切换到 表B 的时候,可以看到表头A的各列名称在变化,很快的切换成了表B 的表头,虽然快,但是依然可以看到切换的痕迹
--  作者:Bin
--  发布时间:2015/3/7 11:43:00
--  
看3楼,不行就上例子
--  作者:新航程小何
--  发布时间:2015/3/7 12:11:00
--  
老师,你看一下例子
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:记录测试.zip


--  作者:Bin
--  发布时间:2015/3/7 14:14:00
--  
外部数据源的项目我打不开,你做个例子发上来吧
--  作者:新航程小何
--  发布时间:2015/3/7 15:51:00
--  
老师,好了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:记录测试.zip


--  作者:Bin
--  发布时间:2015/3/7 15:59:00
--  
测试没有什么问题,可能是你电脑配置较低,所以会出现你所说的情况,可以试试这个办法http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=55092&skin=0