难道你的关联是动态建立的,如果不是,直接在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()