主题：动态数据字典问题

If MainTable.Name = "交易平台配置与计算" Then
    Dim dt As DataTable = DataTables("交易平台配置与计算")
    Dim dc As String = dt.GetComboListString("交易平台_产品_产品类目")
    dc = dc.Replace("|", "','")
    Dim dmp As New TableDataMap
    dmp.DataTable = "接引资源库" '指定数据来源表
    dmp.ValueCol = "资源块名称" '指定取值列
    dmp.DisplayCol = "资源块名称" '指定显示列
    '指定下拉列表时显示哪些列的数据
    dmp.ListCols = "资源块名称,系统面向类目"
    dmp.Filter = "系统面向类目 in ('" & dc & "')"
    Tables("交易平台配置与计算").Cols("接引资源块_资源名称").DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If