以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 怎么批量关闭列窗口呢? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142106) |
-- 作者:龙潭春早 -- 发布时间:2019/10/18 15:48:00 -- [求助] 怎么批量关闭列窗口呢? 表中的列窗口有点多,想一次性的批量关闭。 不想用遍历的方法,只想用 Select Case 语句。 在表的 AfterLoadTableSetting 事件里,添加了下面的代码, 重启项目,怎么不执行呢? 怎么解决呢? Dim clName1 As String = "列名1" \' 批量关闭列窗口 Dim clName2 As String = e.Table.Cols(clName1).Name Select Case clName1 Case "列名1","列名2","列名3","列名4","列名5","列名6" e.Table.Cols(clName1).CloseWindow() \' 关闭列窗口 End Select
|
-- 作者:有点蓝 -- 发布时间:2019/10/18 16:03:00 -- 只能用遍历的方法 dim str() as string = {"列名1","列名2","列名3","列名4","列名5","列名6"} 遍历设置的代码
|
-- 作者:龙潭春早 -- 发布时间:2019/10/18 18:27:00 -- 哦 好! 顺便请教一下,从语法上来说,1楼 的代码没有错误吧?
|
-- 作者:有点蓝 -- 发布时间:2019/10/18 20:44:00 -- 语法没有问题。逻辑上没有任何用处 |
-- 作者:龙潭春早 -- 发布时间:2019/10/18 22:47:00 -- |
-- 作者:有点蓝 -- 发布时间:2019/10/18 23:03:00 -- 这个代码永远只能判断"列名1"。因为第一句代码就已经写死了。再说了select case也不适合用在这个事件处理这种逻辑 |