- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件默认用户组 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127734)
-- 发布时间：2018/11/20 22:36:00
-- 控件默认用户组
控件默认用户组
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:控件默认分组.foxdb |
已设置用户管理，用户组：
希望实现：控件ComboBox1 默认为登录人员的分组。
1、如张三分组为华南，控件默认是华南。如果是李四登录，就默认为华北。不能修改。
2、如果用户分组是经理，控件默认为空。
3、只有经理才能对控件ComboBox1 进行选择修改。
[此贴子已经被作者于2018/11/20 22:36:58编辑过]
-- 发布时间：2018/11/20 22:53:00
--
窗口afterload
Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If User.Group <> "经理"
cbo.Text = User.Group
cbo.ReadOnly = BooleanEnum.True
End If