只能手工添加节点
Dim cmd As new SQLCommand
cmd.ConnectionName=("PAICHAN")
cmd.CommandText="S ELECT DISTINCT [适用规格] from {TBL_商标表}"
Dim dt As DataTable =cmd.ExecuteReader
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
dim lst as new list(of string)
for each dr as datarow in dt.datarows
for each s as string in dr("适用规格").split(",")
if lst.contains(s) = false then lst.add(s)
next
next
lst.sort
trv.Nodes.add("加载所有数据")
for each s as string in lst
trv.Nodes.add(s,s)
next
加好友 
发短信
Post By：2020/9/1 8:44:00 [只看该作者]
