- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 切换主表时, 执行显示主表所有列的指令出错。不应该吧？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128601)
-- 发布时间：2018/12/11 15:25:00
-- [求助] 切换主表时, 执行显示主表所有列的指令出错。不应该吧？
想在切换任意主表时, 都执行一次显示主表所有列的指令。
在 MaintableChanged 中加入以下代码，显示出错：
不应该吧？
For Each dt As DataTable In DataTables
Next
MainTable = dt
For Each dc As DataCol In dt.DataCols
dc.Visible = True
Next
此主题相关图片如下：切换主表时，想显示主表的所有列，出现错误.jpg
-- 发布时间：2018/12/11 15:35:00
--
For Each dc As Col In MainTable.Cols
dc.Visible = True
Next
-- 发布时间：2018/12/11 16:12:00
--
嗯 这个好！
不过，1楼 代码的错误在哪儿呢？ 感觉应该能用啊。
至少不应该是： 未声明名称 “dt” 的 编译错误 吧？
-- 发布时间：2018/12/11 16:23:00
--
这里，需要的是table，不是datatable
MainTable = Tables("表A")
-- 发布时间：2018/12/11 17:05:00
--
嗯
不过，换成 Table，还是显示同样的问题：
For Each tl As Table In Tables
Next
MainTable = tl
For Each cl As Col In tl.Cols
cl.Visible = True
Next
[此贴子已经被作者于2018/12/11 17:06:19编辑过]
-- 发布时间：2018/12/11 17:23:00
--
没看懂你这样写的目的。是不是这个意思？
For Each tl As Table In Tables
For Each cl As Col In tl.Cols
cl.Visible = True
Next
Next
-- 发布时间：2018/12/11 18:04:00
--
嗯 是这个意思。
next 位置不对！
谢谢啦！