以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 批量关闭列窗口,这段代码怎么不执行呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145698)

--  作者:龙潭春早
--  发布时间:2020/2/5 1:39:00
--  [求助] 批量关闭列窗口,这段代码怎么不执行呢?
在 CurrentTableChanged 中,设置了批量关闭列窗口,这段代码怎么不执行呢?

For Each dc As DataCol In CurrentTable.DataTable.DataCols
    
    If dc.ExtendType = ExtendTypeEnum.File OrElse dc.ExtendType = ExtendTypeEnum.Images OrElse dc.ExtendType = ExtendTypeEnum.Files Then
        
        CurrentTable.Cols(dc.Name).CloseWindow() \' 关闭列窗口
        
    End If
Next

--  作者:有点蓝
--  发布时间:2020/2/5 8:48:00
--  
上面判断仅对扩展列有些,对备注列无效。另外单文件列是没有列窗口的,没有必要判断

For Each dc As DataCol In CurrentTable.DataTable.DataCols
    If dc.MaxLength > 255 OrElse dc.ExtendType = ExtendTypeEnum.Images OrElse dc.ExtendType = ExtendTypeEnum.Files Then
        CurrentTable.Cols(dc.Name).CloseWindow() \' 关闭列窗口
    End If
Next

--  作者:龙潭春早
--  发布时间:2020/2/5 18:58:00
--  
嗯 多谢!