利用类型TableDataMap来根据数据表创建数据字典,可只能够单选,能不能在前面加上复选框,给予多值。
本来想从用户表中把所有角色全列出来,在菜单表中的角色字段里显示,可以多选。
用TableDataMap可以直接列出所有用户可以使用的角色,但不知道怎么实现角色多选。
Dim dmp As New TableDataMap
dmp.DataTable = "用户" '指定数据来源表
dmp.ValueCol = "Config" '指定取值列
dmp.DisplayCol = "Config" '指定显示列
dmp.ListCols = "Config"
dmp.Filter = "[Name] = 'Roles'"
Tables("菜单").Cols("角色").DataMap = dmp.CreateDataMap() '生成并设置DataMap
[此贴子已经被作者于2019/4/1 9:26:40编辑过]