下面这段代码在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
加好友 
发短信
Post By：2013/1/27 10:51:00 [显示全部帖子]
