以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态数据字典问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119343)

--  作者:zhangxiaom
--  发布时间: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
图片点击可在新窗口打开查看



--  作者:zhangxiaom
--  发布时间: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编辑过]

--  作者:zhangxiaom
--  发布时间:2018/5/23 11:20:00
--  
谢谢 谢谢 成功了