Foxtable(狐表)用户栏目专家坐堂 → [求助]多值字段能从用户管理表(外部表)里提取吗?


  共有2695人关注过本帖树形打印复制链接

主题:[求助]多值字段能从用户管理表(外部表)里提取吗?

美女呀,离线,留言给我吧!
ericotaku
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1373 威望:0 精华:0 注册:2014/6/10 8:47:00
[求助]多值字段能从用户管理表(外部表)里提取吗?  发帖心情 Post By:2016/4/19 21:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160419211252.png
图片点击可在新窗口打开查看
表“任务单”中的列“接收人”设置为了多值字段。


用户数据表是用的外部数据表,设置了三个分组“技术部”“生产部”“行政部”,设置了三个角色“经理”“主管”“员工”

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160419174454.png
图片点击可在新窗口打开查看

我想在“接收者”一列,去取用户数据表里的数据,然后有下拉列表可以多选的输入方式,进行输入
比如我新建了一个任务,我可以同时选择“钱二”“周五”“王八”,这三个人来接收数据。

能弄一个可以多选的下拉列表,并且可以同时看到用户的 组 角色 名称 三个
字段的值吗?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
[此贴子已经被作者于2016/4/19 21:14:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/19 21:33:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

如果你需要显示和取值不同的话,你要用下拉窗口

 

http://www.foxtable.com/help/topics/2465.htm

 


 回到顶部
美女呀,离线,留言给我吧!
ericotaku
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1373 威望:0 精华:0 注册:2014/6/10 8:47:00
  发帖心情 Post By:2016/4/20 11:02:00 [只看该作者]


[此贴子已经被作者于2016/4/20 11:02:47编辑过]

 回到顶部
美女呀,离线,留言给我吧!
ericotaku
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1373 威望:0 精华:0 注册:2014/6/10 8:47:00
  发帖心情 Post By:2016/4/20 11:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160420110115.png
图片点击可在新窗口打开查看

im str As String = ""                 赋初值
For Each u As UserInfo In users            遍历表“user"
    str &= u.Group & "." & u.Roles & "." & u.Name & "|"      以"组""角色""名称"连接字符串
Next
Tables("任务单").Cols("接收者").ComboList = str.trim("|")       给列“接收者”的Combolist赋值


老师, 我想在给combolist赋值的时候,筛选掉user.name = “管理员"的值,应该把filter写哪里


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/20 11:06:00 [只看该作者]

Dim str As String = ""
For Each u As UserInfo In users
    If u.name <> "开发者" AndAlso u.name <> "管理员" Then
        str &= u.Name & "." & u.Group & "." & u.Roles & "|"
    End If
Next
Tables("任务单").Cols("接收者").ComboList = str.trim("|")

 回到顶部