Dim tb As New DropTreeBuildertb.SourceTable = DataTables("行程") '指定目录树表tb.TreeCols = "{分类}" '指定用于生成目录树的列,用大括号括起来tb.ReceiveCols = "大类|二类|三类" '指定数据接收列tb.PathSeparator = "|" '指定路径分割符号
tb.Filter = "关联列 = '" & Tables("地接").Current("关联列") & "'" '你可以设置条件的啊,关联列的名称等于父表关联列即可Tables("订单").Cols("大类").DropTree = tb.Build()