主题：关于隐藏列

For Each c As Col In t.cols

    c.visible = True
    If  c.name = "身份证号" OrElse c.name = "客户主手机号" OrElse c.name = "第二手机号"  OrElse c.name = "第三手机号" OrElse c.name = "备注"  OrElse c.name = "身份证照片"  Then
        If _UserGroup = "系统管理员" Then
            c.visible = True
        Else
            c.visible = False
        End If
    End If
    If  c.name = "身份证号掩码显示" OrElse c.name = "客户主手机号掩码显示" OrElse c.name = "第二手机号掩码显示"  OrElse c.name = "第三手机号掩码显示" OrElse c.name = "备注"  OrElse c.name = "身份证照片"  Then
        If _UserGroup = "数据操作员" Then
            c.visible = True
        Else
            c.visible = False
        End If
    End If
Next

For Each c As Col In t.cols
    c.visible = True
    If  c.name = "身份证号" OrElse c.name = "客户主手机号" OrElse c.name = "第二手机号"  OrElse c.name = "第三手机号" OrElse c.name = "备注"  OrElse c.name = "身份证照片"  Then
        If _UserGroup = "系统管理员" Then
            c.visible = False
        Else
            c.visible = true
        End If
    End If
    If  c.name = "身份证号掩码显示" OrElse c.name = "客户主手机号掩码显示" OrElse c.name = "第二手机号掩码显示"  OrElse c.name = "第三手机号掩码显示" OrElse c.name = "备注"  OrElse c.name = "身份证照片"  Then
        If _UserGroup = "数据操作员" Then
            c.visible = false
        Else
            c.visible = true
        End If
    End If
    If c.name = "备注"  OrElse c.name = "身份证照片" Then
        If _UserGroup = "系统管理员" OrElse _UserGroup = "数据操作员" Then
            c.visible = false
        Else
            c.visible = true
        End If
    End If
Next
s = ""
For Each c As Col In t.cols
    If c.visible Then
        s = s & "|" & c.name
    End If
Next

Dim cbx = e.form.controls("控件名")

cbx.items(0) = "abc"

cbx.items(2) = "123"

不能乱起名的，如果名称不和列名对应，你就不能控制列的显示隐藏等操作了。