主题：数据字典只能用1次

在MAINTABLECHANGED里用一下代码 生产数据字典，为什么每次选择一次后，再想换一个，就没有下拉选项了。

If MainTable.Name = "表A" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = 。。。。。。。。。

    dmp.ValueCol = 。。。。。。。。。
    dmp.DisplayCol = 。。。。。。。。

    dmp.ListCols = 。。。。。。。。。
    dmp.Filter =。。。。。。。。。
    dmp.Sort = 。。。。
    Tables("表A").Cols("钻孔_价目").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If