你是不是要这样啊?
Dim tb As New DropTreeBuildertb.SourceTable = DataTables("行政区域") '指定目录树表tb.TreeCols = "省|县市" '指定用于生成目录树的列tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列Tables("客户").Cols("省").DropTree = tb.Build()