以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169627)
--  作者：qazlinle6
--  发布时间：2021/6/23 16:33:00
--  取值
Dim cmb As WinForm.ComboBox = e.form.Controls("UserGroup")
cmb.ComboList = DataTables("Users").sqlGetComboListString("Group")


列有1.2.3.4，我想让上面的代码只取只显示1.2，不取不显示3.4
--  作者：有点蓝
--  发布时间：2021/6/23 16:38:00
--  
还不如直接使用

Dim cmb As WinForm.ComboBox = e.form.Controls("UserGroup")
cmb.ComboList = "1|2"
--  作者：qazlinle6
--  发布时间：2021/6/23 16:43:00
--  
开发用户，取值全部
其它用户，取值其它值，排除开发和管理
[此贴子已经被作者于2021/6/23 16:48:07编辑过]
--  作者：有点蓝
--  发布时间：2021/6/23 16:52:00
--  
开发者和管理员是内置用户，外部表就不会有这个2个用户的
--  作者：qazlinle6
--  发布时间：2021/6/23 16:57:00
--  
我知道，只是权限说明


经理取值，全部，组管这些
像组管就排除经理。组管只显示其它的

[此贴子已经被作者于2021/6/23 17:00:59编辑过]
--  作者：有点蓝
--  发布时间：2021/6/23 17:07:00
--  
if _usergroup = “经理”
cmb.ComboList = DataTables("Users").sqlGetComboListString("Group")
elseif _usergroup = “组管”
cmb.ComboList = DataTables("Users").sqlGetComboListString("Group","Group <> \'经理\'")
else.......