以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目事件MainTableChanged中的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28383)
--  作者：hbxtyt2012
--  发布时间：2013/1/27 10:51:00
--  [求助]项目事件MainTableChanged中的问题

下面这段代码在MainTableChanged项目事件中,通过自定义菜单打开窗口的入库表，单位名称的下拉菜单无效，是不是每次打开项目必须点一下表栏目的入库表才能显示下拉菜单，问下是不是代码写错地方了，有没有更好的解决方法

 

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