If e.Col.Name = "物料类型" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("物料表") \'指定目录树表
tb.TreeCols = "物料类型|材质|规格" \'指定用于生成目录树的列
tb.SourceCols = "材质|规格|单位|单价" \'指定数据来源列
tb.ReceiveCols = "材料_材质|材料_材规|单位|单价" \'指定数据接收列
Tables("物料明细表").Cols("物料类型").DropTree = tb.Build()
End If