主题：动态多值字段

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "SELE CT DIS TINCT 省,市县,区号,邮编 From {行政区域}"
dt = cmd.ExecuteReader()
'生成目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "省|市县"
tb.SourceCols = "省" 
tb.ReceiveCols = "省"
Tables("客户").Cols("省").DropTree = tb.Build()

此主题相关图片如下：企业微信截图_20190910105254.png