以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于表的显示列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134905)
--  作者：jackchan120925
--  发布时间：2019/5/12 12:09:00
--  关于表的显示列
请问我有一张表格共计20类，列名为1-20， 我希望表格在窗口A显示（控件作为normal）1-5列，其他不显示。 在窗口B显示的时候显示5-9列，其他不显示。然后不通过窗体，而是直接看表格的实收，所有的列都显示，请问这个该怎么控制？
--  作者：wyz20130512
--  发布时间：2019/5/12 18:54:00
--  

窗口的Afterload事件代码：

 

Dim ctrl_T As WinForm.Table = e.Form.Controls("Table1")
Dim t As Table = ctrl_T.Table
For Each c As Col In t.Cols
    Select Case c.Name.SubString(1,1)
        Case "一","二","三","四","五"
            c.Visible = True
        Case Else
            c.Visible = False
    End Select
Next
--  作者：有点甜
--  发布时间：2019/5/12 21:14:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1921.htm