以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  隐藏多列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97595)
--  作者：良才
--  发布时间：2017/3/15 12:42:00
--  隐藏多列

能简化吗？请指点，谢谢

Dim t As Table = e.Form.controls("Table1").Table

If e.Col.Name = "学生编号" Then
    t.Cols("学生编号").Visible = False
End If
If e.Col.Name = "性别" Then
    t.Cols("性别").Visible = False
End If
If e.Col.Name = "资助金额" Then
    t.Cols("资助金额").Visible = False
End If
If e.Col.Name = "参保状态" Then
    t.Cols("参保状态").Visible = False
End If

[此贴子已经被作者于2017/3/15 12:42:52编辑过]
--  作者：有点色
--  发布时间：2017/3/15 13:38:00
--  

参考

 

Select Case e.Col.Name

    Case "", "", "性别"

        e.Col.Visible = False

End Select
--  作者：良才
--  发布时间：2017/3/15 19:02:00
--  
谢谢