动态数据字典问题 - 专家坐堂 - 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

主题：动态数据字典问题