呃，你选择了xm.pm的时候，只会pm的触发maintablechanged事件的。
你可以在里面判断一下currenttable.name的值，然后设置成xm.pm，代码类似
If MainTable.Name = "pm" Then
Dim mls1 As New DropTreeBuilder
mls1.SourceTable = DataTables("xm") '指定目录树表
mls1.TreeCols = "nd|xmbh" '指定用于生成目录树的列
mls1.SourceCols = "nd|xmbh|jhxd|jhbh|glc|dw|cgr|pmsl|xmbh" '指定数据来源列
mls1.ReceiveCols = "nd|xmbh|jhxd|jhbh|glc|dw|cgr|pmsl|pmbh" '指定数据接收列
Tables(CurrentTable.Name).Cols("pmbh").DropTree = mls1.Build()
加好友 
发短信
Post By：2014/2/9 21:13:00 [显示全部帖子]
