以文本方式查看主题

-  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也不适合用在这个事件处理这种逻辑