狐爸的方法试了下，没搞定，可能是我哪个地方搞错了吧。我自己用了一个遍历做出了这个效果，贴出代码供大家借鉴：
DataTables("shares_股piao信息").LoadFilter = ""
DataTables("shares_股piao信息").Load
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("shares_股piao信息").DataRows
If dr.isnull("挂牌代码") = False Then
If trv.Nodes.Contains(DecryptText(dr("挂牌代码"),"m","#")) = False Then
trv.Nodes.Add(DecryptText(dr("挂牌代码"),"m","#"))
End If
If DecryptText(dr("挂牌代码"),"m","#") = Nothing Then
Continue For
Else
trv.Nodes(DecryptText(dr("挂牌代码"),"m","#")).Nodes.Add(DecryptText(dr("股piao代码"),"m","#"))
End If
End If
Next
加好友 
发短信
Post By：2016/10/17 13:50:00 [显示全部帖子]
Post By：2016/10/17 14:01:00 [显示全部帖子]
有方法没？