| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- user.name 搞成列表项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170215) |
| -- 作者：keli0917 -- 发布时间：2021/7/16 18:05:00 -- user.name 搞成列表项目 Dim yh As WinForm.ComboBox = e.Form.Controls("ComboBox2") Dim str1 As String For Each us As UserInfo In Users str1 + = "|" + us.name Next str1= str1.Substring(1) yh.ComboList= str1 怎么不行？要怎么改？
|
| -- 作者：有点蓝 -- 发布时间：2021/7/17 8:50:00 -- 我测试没有问题。是使用的内置用户登录吗，还是自己做的用户登录功能？ |
| -- 作者：keli0917 -- 发布时间：2021/7/17 9:52:00 -- 内置。今天我再试，可以了。昨天提示 不能转换成STRING. |
| -- 作者：keli0917 -- 发布时间：2021/7/17 16:08:00 -- 取得不重复的us.group应该怎么写？下面这样写不行。 dim str2 as string For Each us As UserInfo In Users if us.group >"" then
If str2.Contains(us.Group) =False Then str2 + = "|" + us.group End If end if next |
| -- 作者：有点蓝 -- 发布时间：2021/7/17 16:15:00 -- dim lst as new list(of string) For Each us As UserInfo In Users if us.group >"" then for each s as string in us.group.split(",") if lst.contains(s) = false then lst.add(s) next end if next dim str2 as string = string.join("|",lst.toarray) |
| -- 作者：keli0917 -- 发布时间：2021/7/17 17:37:00 -- 还有个问题，假如我在系统用户管理增加了3个分组，经理，主管，业务员。 系统里有2个用户，分别叫小王，小张。 小王的分组：经理 小张的分组：主管 用上面的代码，只能列出经理和主管，业务员无法列出。 能不能读出所有分组？ |
| -- 作者：有点蓝 -- 发布时间：2021/7/17 17:41:00 -- 没有办法。自己直接使用代码里定义吧 全局代码 public _allgroup as string afteropenproject事件 _allgroup = "经理|主管|业务员" 记得在用户管理变更分组数据后，更新afteropenproject事件代码
|