主题：导出内部数据表

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinFor m.ComboBox
cmd.Connection Name ="生产采购管理系统"
cmd.CommandText = "SELECT DISTINCT 发证机构,考试合格项目代号 Fro m {焊工资质清单}"
dt = cmd.ExecuteReader()

Dim trv As WinFor m.TreeView = e.For m.Controls("TreeView1")
trv.BuildTree(dt,"发证机构|考试合格项目代号")