主题：目录树问题

'生成数据表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "SELECT DISTINCT 使用状态,出库单号 From {出库单目录}"

dt = cmd.ExecuteReader()

'生成目录树

Dim tb1 As New DropTreeBuilder

tb.SourceTable = dt

tb.TreeCols = "使用状态|出库单号"

tb.SourceCols = "出库单号"

tb.ReceiveCols = "出库单号"

Tables("出库").Cols("出库单号").DropTree = tb.Build()