Dim t1 As String
t1="Select ({X_OBS}.全名称 + '\' + {X_USER}.名称) as 部门与名称 FROM {X_OBS} INNER JOIN {X_USER} ON {X_OBS}._Identify = {X_USER}.部门编号"
Dim dtb As New DataTableBuilder("生成目录树")
dtb.AddDef("目录树", Gettype(String), 32)
dtb.Build()
DataTables("生成目录树").Fill(t1,"数据源",False)
Dim tr As WinForm.TreeView = Forms("C_用户选择").Controls("TreeView1")
tr.CreateTree("生成目录树","列名")