Dim ary1() = {"产品","客户","雇员"}
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd,nd1,nd2 As WinForm.TreeNode
trv.nodes.Clear
Dim dt As DataTable
Dim cmd As new SQLCommand
For i As Integer = 0 To ary1.length-1
nd=trv.nodes.Add(Ary1(i))
Select Case nd.name
Case "产品"
cmd.CommandText="select distinct 产品 f rom {订单}"
dt=cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
nd.nodes.add(dr("产品"))
Next
Case "客户"
Dim ary2() = {"外部","内部"}
Dim id As Integer = trv.Nodes("客户").Index
For i1 As Integer = 0 To ary2.length-1
nd1 = nd.Nodes.Insert(ary2(i1),id)
Select Case nd1.name
Case "外部"
cmd.commandtext="select distinct 客户 f rom {订单}"
dt=cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
nd1.Nodes.add(dr("客户"))
Next
Case "内部"
'----在"内部"节点下生成指定子节点
Dim ary3()={"分公司","控股公司","全资子公司"}
Dim id1 As Integer= nd1.Nodes("内部").Index
For i2 As Integer=0 To ary3.length-1
nd2 = nd1.Nodes.Insert(ary3(i2),id1)
Next
'------根据表内容在"内部"子节点下生成节点
'cmd.commandtext="select distinct 产品 f rom {订单}"
'dt=cmd.ExecuteReader
'For Each dr As DataRow In dt.DataRows
'nd1.Nodes.add(dr("产品"))
'Next
End Select
Next
Case "雇员"
Dim id As Integer = trv.Nodes("雇员").Index '指定节点位置
Dim ary3() ={"正式员工","临时工","派遣人员"}
For i2 As Integer = 0 To ary3.length-1
nd1=nd.Nodes.Insert(ary3(i),id)
Next
End Select
Next
请问下，上述代码，添加标注颜色部份代码，为什么提示“未将对象引用设置到对象的实例。” 应怎么解决
加好友 
发短信
Post By：2018/11/2 15:13:00 [显示全部帖子]
此主题相关图片如下：节点错误.png
