主题：[求助]关于数据字典问题

 你的MaintableChanged事件写了代码，你要根据什么设置，你就写对应代码，取值列，不能是整数列

If MainTable.Name = "t_dkjbxx" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = "t_xqjbxx" '指定数据来源表
    dmp.ValueCol = "zxID" '指定取值列
    dmp.DisplayCol = "xqmc" '指定显示列
    '指定下拉列表时显示哪些列的数据
    'dmp.ListCols = "ID,公司,姓氏,名字,职务,业务电话,传真号,地址,城市,邮政编码"
    dmp.ListCols="xqmc,xqdz,zxID"
    'dmp.Filter=" "
    dmp.Sort = "xqmc" '指定排序方式
    Tables("t_dkjbxx").Cols("xqmc").DataMap = dmp.CreateDataMap() '生成并设置DataMap
'Tables("t_dkjbxx").Current("xqmc")=MainTable.Name
End If