主题：关于StopRedraw

用控件ComboBox 切换，加载窗口， 窗口数据加载时，用到了  dataTables("表A").DataCols.Add（）   发现窗口会闪一下，能够看到列增加的过程，使用了StopReDraw  没起作用，请老师，指点，谢谢！

试试

 

Dim dt As DataTable = DataTables("表A")
lockbasemainform
dt.StopRedraw

'e.Form.StopRedraw
dt.datacols.Add("新增列", Gettype(Double))
dt.ResumeRedraw

'e.Form.ResumeRedraw
unlockbasemainform

报错，提示“lockbasemainform” 为未声明名称。  当前用的是较早以前的平台，是不是不可以用呢？

Dim dt As DataTable = DataTables("表A")
dt.StopRedraw

e.Form.StopRedraw
dt.datacols.Add("新增列", Gettype(Double))
dt.ResumeRedraw

e.Form.ResumeRedraw

如果单独使用下列语句，看不到列增加的过程，但是 有个白板  闪一下  后，看到数据。

老师，用了 4楼的方法后，会有白板  闪动一下，可以解决吗？

 不行，旧版没办法。你可以先把表格隐藏，最后再显示出来。

好的  谢谢