以文本方式查看主题 - 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... 明白了,谢谢。。 |