主题：[求助]窗口中子表动态数据字典代码

代码这样写，但是你的取值列、显示列，必须唯一。

Dim dmp As New TableDataMap
dmp.DataTable = "取值表"   '指定数据来源表
dmp.ValueCol = "第一列"   '指定取值列
dmp.DisplayCol = "第一列"   '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "第一列,第二列,第三列"
dmp.Sort = "第一列"   '指定排序方式
dmp.Filter = "第一列 = '" & Tables("父表").current("取值条件") & "'"
Tables("父表.子表").Cols("第二列").DataMap = dmp.CreateDataMap()