动态数据字典问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If MainTable.Name = "交易平台配置与计算" Then

Dim dt As DataTable = DataTables("交易平台配置与计算")

Dim dc As DataCol = dt.DataCols("交易平台_产品_产品类目")

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

此主题相关图片如下：53jt`0`@8$2{lu3juzm9l6.png

请问这个代码的问题出在哪

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

[此贴子已经被作者于2018/5/23 10:37:20编辑过]

谢谢谢谢成功了

主题：动态数据字典问题