主题：动态目录树列表

If e.IsFocusCell Then

    If e.Col.Name = "供应商" Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("广宣物料信息") '指定目录树表

        'tb.TreeFilter = "供应商='" & e.Row("供应商") & "'"

        tb.TreeCols = "供应商|材料类别|材料名称|规格" '指定用于生成目录树的列

        tb.SourceCols = "供应商|编号|材料类别|材料名称|规格|单位|计价方式|单价" '指定数据来源列

        tb.ReceiveCols = "供应商|材料编号|材料类别|材料名称|规格|单位|计价方式|单价|制作物尺寸_长|制作物尺寸_宽|金额"  '指定数据接收列

        Tables("广宣物料明细表").Cols("供应商").DropTree = tb.Build()

    End If

End If