主题：列的DATAMAP

不能反向获取的。因为赋值的时候，是Create生成的是新对象。

Dim dmp As New TableDataMap
dmp.DataTable = "表B" '指定数据来源表
dmp.ValueCol = "第一列" '指定取值列
dmp.DisplayCol = "第二列" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "第一列,第二列,第三列"
Tables("表A").Cols("第四列").DataMap = dmp.CreateDataMap() '生成并设置DataMap
Dim obj = Tables("表A").Cols("第四列").DataMap
For Each key As object In obj.keys
    output.show(key & " " & obj(key))
Next

http://www.foxtable.com/webhelp/scr/1945.htm