- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 动态数据字典问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119343)
-- 发布时间：2018/5/23 10:30:00
-- 动态数据字典问题
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
-- 发布时间：2018/5/23 10:30:00
--
请问 这个代码的问题出在哪
-- 发布时间：2018/5/23 10:37:00
--
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编辑过]
-- 发布时间：2018/5/23 11:20:00
--
谢谢 谢谢 成功了