关于CheckedListBox控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于CheckedListBox控件

共有3129人关注过本帖树形打印复制链接主题：关于CheckedListBox控件

裴保民

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

关于CheckedListBox控件 发帖心情

Post By：2017/12/6 20:00:00 [只看该作者]

窗体上有一个CheckedListBox控件，我想根据登录者的角色不同加载窗体后加载不同的列。

我在窗体的AfterLoad事件中写了如下代码：运行后是加载所有的列，怎样隐藏指定列呢？

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")

For Each c As Col In Tables("机具库存资料").cols

s=s &"|"& c.Name

lieming.ComboList=s

e.form.Controls("Table1").Table.DataSource =DataTables("机具库存资料")

e.form.controls("Table1").Table.Filter = Tables("机具库存资料").Filter

[此贴子已经被作者于2017/12/6 20:00:21编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/6 20:34:00 [只看该作者]

参考daim

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
For Each c As Col In Tables("机具库存资料").cols
    If c.name = "第一列" orelse c.name = "第二列" Then
        If _username = "张三" Then
            s=s &"|"& c.Name
        End If
    Else
        s=s &"|"& c.Name
    End If
Next
lieming.ComboList=s
e.form.Controls("Table1").Table.DataSource =DataTables("机具库存资料")
e.form.controls("Table1").Table.Filter = Tables("机具库存资料").Filter

裴保民

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/12/6 21:08:00 [只看该作者]

老师我是想实现当登录的角色是“系统管理员”的身份时要加载“电话号码”、“第二电话号码”列和其他列，如果是输入操作员的身份登录的系统时要加载“电话号码掩码”、“第二电话号码掩码”列和其他列，怎么处理呢？

[此贴子已经被作者于2017/12/6 21:11:17编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/6 21:22:00 [只看该作者]

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
For Each c As Col In Tables("机具库存资料").cols
    If c.name = "电话号码" orelse c.name = "第二电话号码" Then
        If _userroles = "系统管理员" Then
            s=s &"|"& c.Name
        End If
    ElseIf c.name = "电话号码掩码" orelse c.name = "第二电话号码掩码" Then
        If _userroles = "操作员" Then
            s=s &"|"& c.Name
        End If

    Else
        s=s &"|"& c.Name
    End If
Next
lieming.ComboList=s
e.form.Controls("Table1").Table.DataSource =DataTables("机具库存资料")
e.form.controls("Table1").Table.Filter = Tables("机具库存资料").Filter

裴保民

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/12/12 8:51:00 [只看该作者]

甜老师，这个窗体中还有一个副本表，怎么同时将副本表随着登录账户角色变化而变化呢？副本表的中的列变化规则同CheckedListBox控件中列的规则。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/12 9:11:00 [只看该作者]

For Each c As Col In Tables("机具库存资料").cols
    If c.name = "电话号码" OrElse c.name = "第二电话号码" Then
        If _userroles = "系统管理员" Then
            c.visible = True
        Else
            c.visible = False
        End If
    ElseIf c.name = "电话号码掩码" OrElse c.name = "第二电话号码掩码" Then
        If _userroles = "操作员" Then
            c.visible = True
        Else
            c.visible = False
        End If
    Else
        c.visible = True
    End If
Next

裴保民

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/12/12 9:18:00 [只看该作者]

甜老师和这段代码差不多。都是在AfterLoad事件中写代码，能公用这段代码吗？

还是在他下面加入以下代码呢？

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/12 9:45:00 [只看该作者]

可以分开写，也可以合并起来写。你就分开写吧。

裴保民

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/12/12 9:55:00 [只看该作者]

甜老师一下写的代码对吗？

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")

For Each c As Col In Tables("机具库存资料").cols

If c.name = "电话号码" orelse c.name = "第二电话号码" Then

If _userroles = "系统管理员" Then

s=s &"|"& c.Name

End If

ElseIf c.name = "电话号码掩码" orelse c.name = "第二电话号码掩码" Then

If _userroles = "操作员" Then

s=s &"|"& c.Name

End If

Else

s=s &"|"& c.Name

End If

For Each c As Col In Tables("机具库存资料").cols

If c.name = "电话号码" OrElse c.name = "第二电话号码" Then

If _userroles = "系统管理员" Then

c.visible = True

Else

c.visible = False

End If

ElseIf c.name = "电话号码掩码" OrElse c.name = "第二电话号码掩码" Then

If _userroles = "操作员" Then

c.visible = True

Else

c.visible = False

End If

Else

c.visible = True

End If

lieming.ComboList=s

e.form.Controls("Table1").Table.DataSource =DataTables("机具库存资料")

e.form.controls("Table1").Table.Filter = Tables("机具库存资料").Filter

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/12 9:58:00 [只看该作者]

差不多，有什么问题？

下一主题 >> << 上一主题

总数 23 1 2 3 下一页

主题：关于CheckedListBox控件