Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么动态目录树列表，在关联后没效了？


  共有5475人关注过本帖树形打印复制链接

主题：为什么动态目录树列表，在关联后没效了？
帅哥哟，离线，有人找我吗？
dengzhihao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：2169 威望：0 精华：0 注册：2012/11/4 22:07:00 		为什么动态目录树列表，在关联后没效了？  发帖心情 Post By：2013/5/9 22:30:00 [只看该作者]

If MainTable.Name = "销售副表" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品表") '指定目录树表
tb.TreeCols = "产品类|产品名称" '指定用于生成目录树的列
tb.SourceCols = "产品类|产品名称" '指定数据来源列
tb.ReceiveCols = "|产品名称" '指定数据接收列
Tables("销售副表").Cols("产品名称").DropTree = tb.Build()
End If

在销售主表与销售副表关联后，再操作销售主表.销售副表时，这个动态目录树列表就失效了！
求解呀·······
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7237 积分：40608 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/5/10 0:05:00 [只看该作者]

If Currenttable.Name = "销售副表" orelse Currenttable.name = "销售主表.销售副表" Then
    Dim tb As New DropTreeBuilder
    tb.SourceTable = DataTables("产品表") '指定目录树表
    tb.TreeCols = "产品类|产品名称" '指定用于生成目录树的列
    tb.SourceCols = "产品类|产品名称" '指定数据来源列
    tb.ReceiveCols = "产品类|产品名称" '指定数据接收列
    Tables(Currenttable.name).Cols("产品名称").DropTree = tb.Build()
End If
[此贴子已经被作者于2013-5-10 0:08:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dengzhihao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：2169 威望：0 精华：0 注册：2012/11/4 22:07:00 		  发帖心情 Post By：2013/5/10 0:25:00 [只看该作者]

谢谢老程···图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
dengzhihao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：252 积分：2169 威望：0 精华：0 注册：2012/11/4 22:07:00 		  发帖心情 Post By：2013/5/13 23:10:00 [只看该作者]

是可以了！把代码放在AfterOpenProject里面，每次重新打开软件时，在“销售主表.销售副表”中都没法显示下拉列表来！求解！
[此贴子已经被作者于2013-5-13 23:11:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/5/14 8:45:00 [只看该作者]

难道你的关联是动态建立的，如果不是，直接在AfterOpenptoject事件设置代码：

 

 

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("产品表") '指定目录树表
    tb.TreeCols = "产品类|产品名称" '指定用于生成目录树的列
    tb.SourceCols = "产品类|产品名称" '指定数据来源列
    tb.ReceiveCols = "产品类|产品名称" '指定数据接收列
    Tables("销售副表").Cols("产品名称").DropTree = tb.Build()
    Tables("销售主表.销售副表").Cols("产品名称").DropTree = tb.Build()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.17896 秒, 4 次数据查询