以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关联表能否继承子表的数据字典  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110032)

--  作者:whyxd
--  发布时间:2017/11/24 18:28:00
--  [求助]关联表能否继承子表的数据字典
表A(父表) ,表B(子表) ,两表关联。在菜单中-列属性 给"表B"的"第一列"设置了数据字典,关联表“表A.表B” 的“第一列”也继承了数据字典。
通过代码:
Dim dmp As New TableDataMap
dmp.DataTable = "表c" \'指定数据来源表
dmp.ValueCol = "第一列" \'指定取值列
dmp.DisplayCol = "第二列" \'指定显示列
dmp.ListCols = "第二列"
dmp.Sort = "第三列" \'指定排序方式
Tables("表B").Cols("第一列").DataMap = dmp.CreateDataMap() \'生成并设置DataMap

增加的数据字典,关联表不继承。

因为关联表不确定,而且还在随时增加,所以用 Tables("表A.表B").Cols("第一列").DataMap = dmp.CreateDataMap()  会很大的增加维护工作,有没有比较好的办法可以实现?Tables("表A.表B") 增加数据字典。统一增加,不用每个关联表都维护。

--  作者:有点蓝
--  发布时间:2017/11/24 20:15:00
--  
Dim dmp As New TableDataMap
dmp.DataTable = "表c" \'指定数据来源表
dmp.ValueCol = "第一列" \'指定取值列
dmp.DisplayCol = "第二列" \'指定显示列
dmp.ListCols = "第二列"
dmp.Sort = "第三列" \'指定排序方式
For Each t As Table In Tables
    If t.Name.Contains("表B")
        t.Cols("第一列").DataMap = dmp.CreateDataMap()
    End If
Next

--  作者:whyxd
--  发布时间:2017/11/28 19:36:00
--  回复:(有点蓝)Dim dmp As New TableDataMapdmp.Dat...
明白了,谢谢。。