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

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

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

裴保民

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

加好友

发短信

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

Post By：2017/12/12 10:02:00 [只看该作者]

还没调试呢

裴保民

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

加好友

发短信

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

Post By：2017/12/12 12:53: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

甜老师您看看运行这段代码后，和以前没变化，您看看哪错了

是不是下面这句代码的原因

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

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

[此贴子已经被作者于2017/12/12 13:04:43编辑过]

有点甜

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

加好友

发短信

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

Post By：2017/12/12 14:42:00 [只看该作者]

Dim t As Table = e.form.Controls("Table1").Table
t.DataSource =DataTables("机具库存资料")
t.Filter = Tables("机具库存资料").Filter
Dim s As String = ""
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
For Each c As Col In t.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
For Each c As Col In t.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
lieming.ComboList=s

裴保民

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

加好友

发短信

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

Post By：2017/12/12 15:30:00 [只看该作者]

这样写代码窗体表没有数据

不起作用

[此贴子已经被作者于2017/12/12 15:49:58编辑过]

有点甜

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

加好友

发短信

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

Post By：2017/12/12 15:56:00 [只看该作者]

做个例子发上来测试。

裴保民

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

加好友

发短信

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

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

已加载就是所有列

有点甜

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

加好友

发短信

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

Post By：2017/12/12 16:03:00 [只看该作者]

以下是引用有点甜在2017/12/12 15:56:00的发言：
做个例子发上来测试。

裴保民

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

加好友

发短信

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

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

谢谢甜老师！已经解决

还有一个问题就是，怎么窗体表中的列顺序乱排呢？和原始表中的顺序不一样,我该在哪里设置一下呢？怎么设？

关键是现在具体所要显示哪些列不是固定不变的而是动态的，不知道怎么设

[此贴子已经被作者于2017/12/12 22:16:24编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00

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

参考：http://www.foxtable.com/webhelp/scr/1921.htm

裴保民

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

加好友

发短信

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

Post By：2017/12/12 23:06:00 [只看该作者]

窗体上有一个CheckedListBox控件，加载窗体后会将要打印的列都加载上了，再设置两个按钮（一个是表中的列向左移动想做（即CheckedListBox控件中的列向上）、一个是表中的列向右移动想做（即CheckedListBox控件中的列向下））。怎么设置当选中某一列时，每单击一次向左移动按钮，就执行一下（表中的列向左移动一个位置，CheckedListBox控件中的列向上移动一个位置），每单击一次向右移动按钮，就执行一下（表中的列向右移动一个位置，CheckedListBox控件中的列向下移动一个位置）

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

总数 23 上一页 1 2 3 下一页

主题：关于CheckedListBox控件