If MainTable.Name = "工作计划" Then
Dim dmp As New TableDataMap
dmp.DataTable = "列表项目" '指定数据来源表
dmp.ValueCol = "公司" '指定取值列
dmp.DisplayCol = "公司" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "公司"
dmp.Filter = "[公司] =' & user.group & '" '指定筛选方式
Tables("工作计划").Cols("公司").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If
目的是想让“工作计划”这表的“公司”,从“列表项目”的“公司”列取值,但要根据用户组来判断
上述代码不行,不知哪里有问题
[此贴子已经被作者于2017/9/2 12:58:21编辑过]