以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]老师标注红色的代码怎么写才对呢？暂停绘制，请老师指定  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149999)

--  作者：和谐 --  发布时间：2020/5/18 11:32:00 --  [求助]老师标注红色的代码怎么写才对呢？暂停绘制，请老师指定 Dim ABC1 As Winform.Control ABC1 = e.Form.Controls("Table1") Dim Products As List(Of String) ABC1.StopRedraw() Products = DataTables("SYS_系统菜单").GetValues("标题") For Each Product As String In Products   Tables("表D").Rows.AddNew()      Tables("表D").Current("第一列") = Product Next AB1.ResumeRedraw()

--  作者：有点蓝 --  发布时间：2020/5/18 11:41:00 --   里面的代码和这个定义的窗口表控件都没有任何关系，定义这个窗口表控件有什么用？ ABC1.table.StopRedraw()

--  作者：和谐 --  发布时间：2020/5/18 11:49:00 --   老师，我再测试代码，学习基础

--  作者：和谐 --  发布时间：2020/5/18 11:54:00 --   老师还是不行，从另一个表指定列里挑选不重复值到指定表，在循环前要暂停绘制，等结束时恢复绘制，怎么写呢？

--  作者：有点蓝 --  发布时间：2020/5/18 11:57:00 --   Dim Products As List(Of String) Tables("表D").StopRedraw() Products = DataTables("SYS_系统菜单").GetValues("标题") For Each Product As String In Products   dim r as row = Tables("表D").AddNew()      r("第一列") = Product Next Tables("表D").ResumeRedraw()

--  作者：和谐 --  发布时间：2020/5/18 12:04:00 --   谢谢老师，茅塞顿开