- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口中子表动态数据字典代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75997)
-- 发布时间：2015/10/19 16:47:00
-- [求助]窗口中子表动态数据字典代码
求助：窗口中子表，根据父表某列值，产生动态数据字典的代码。
If MainTable.Name = "子表" Then
Dim dmp As New TableDataMap
dmp.DataTable = "取值表" \'指定数据来源表
dmp.ValueCol = "第一列" \'指定取值列
dmp.DisplayCol = "第一列" \'指定显示列
\'指定下拉列表时显示哪些列的数据
dmp.ListCols = "第一列,第二列,第三列"
dmp.Sort = "第一列" \'指定排序方式
dmp.Filter = "第一列 = \'" & tj.Value & "\'"
Tables("父子_table1").Cols("第二列").DataMap = dmp.CreateDataMap() \'生成并设置DataMap
\'Tables("父表.子表").Cols("第二列").DataMap = dmp.CreateDataMap()
End If
此主题相关图片如下：111.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20151019.table |
-- 发布时间：2015/10/19 17:07:00
--
代码这样写，但是你的取值列、显示列，必须唯一。
Dim dmp As New TableDataMap
dmp.DataTable = "取值表" \'指定数据来源表
dmp.ValueCol = "第一列" \'指定取值列
dmp.DisplayCol = "第一列" \'指定显示列
\'指定下拉列表时显示哪些列的数据
dmp.ListCols = "第一列,第二列,第三列"
dmp.Sort = "第一列" \'指定排序方式
dmp.Filter = "第一列 = \'" & Tables("父表").current("取值条件") & "\'"
Tables("父表.子表").Cols("第二列").DataMap = dmp.CreateDataMap()