主题：隐藏多列

能简化吗？请指点，谢谢

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

参考

Select Case e.Col.Name

    Case "", "", "性别"

        e.Col.Visible = False

End Select