以文本方式查看主题

-  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=104830)

--  作者:purplebluesky
--  发布时间:2017/8/6 11:35:00
--  [求助]动态数据字典不工作
请问下一下代码有没有问题的,我有两个表 一个是客户信息,一个是跟踪。  要是实现在跟踪表里的客户名称那里动态取得客户信息表中的公司名和国家作为下拉选项目。
已经在maintablechanged里面写了以下代码,就是不干活的。。实在搞不懂哪里出问题了。图片点击可在新窗口打开查看   先谢了。。

If MainTable.Name = "跟踪" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = "客户信息" \'指定数据来源表
    dmp.ValueCol = "序号" \'指定取值列
    dmp.DisplayCol = "公司名" \'指定显示列
    \'指定下拉列表时显示哪些列的数据
    dmp.ListCols = "公司名,国家"
    dmp.Sort = "国家" \'指定排序方式
    Tables("跟踪").Cols("客户名称").DataMap = dmp.CreateDataMap() \'生成并设置DataMap
End If

--  作者:有点甜
--  发布时间:2017/8/6 12:29:00
--  

AfterOpenProject事件,写代码

 

    Dim dmp As New TableDataMap

    dmp.DataTable = "客户信息" \'指定数据来源表
    dmp.ValueCol = "序号" \'指定取值列
    dmp.DisplayCol = "公司名" \'指定显示列
    \'指定下拉列表时显示哪些列的数据
    dmp.ListCols = "公司名,国家"
    dmp.Sort = "国家" \'指定排序方式
    Tables("跟踪").Cols("客户名称").DataMap = dmp.CreateDataMap() \'生成并设置DataMap