主题：[求助]关于目录树问题

我想在选择规格的时候目录树显示下一级的品牌和单价如何修改下面的代码？

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