主题：[求助]窗口中子表动态数据字典代码

求助：窗口中子表，根据父表某列值，产生动态数据字典的代码。

 

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