主题：请看一下公式那里有错

Dim tr As winform.treeview
Dim nd1 As winform.treenode
Dim nd2 As winform.treenode
tr = e.Form.controls("treeview1")
Dim cmd As new sqlcommand
Dim dt,dt2 As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
dt2 = dt
nd1 = tr.nodes.add("a1","按产品")
For Each dr As DataRow In dt.DataRows
nd1 = tr.nodes.add("0101",dr("产品"))
Next
nd1 = tr.nodes.add("a2","按客户")
For Each dr As DataRow In dt.DataRows
nd1 = tr.nodes.add("0101",dr("客户"))
Next
tr.expandall()

 

根据以上公式在订单表中可以生成目录树，但没有卷展，应该怎么改

For Each dr As DataRow In dt.DataRows
    nd1.nodes.add("0101",dr("产品"))
Next

但我觉得上面的代码应该改成这样

 

Dim Values() As String = dt.GetComboListString("产品").split("|")
For i As Integer = 0 To Values.Length - 1
    nd1.nodes.add("0101",Values(i))
Next

谢谢

应该加在那里，提示有错啊

出现如图错误，另外客户名也是重复的啊
此主题相关图片如下：未命名.jpg

此主题相关图片如下：未命名1.jpg

Dim tr As winform.treeview
Dim nd1 As winform.treenode
Dim nd2 As winform.treenode
tr = e.Form.controls("treeview1")
Dim cmd As new sqlcommand
Dim dt,dt2 As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
dt2 = dt
nd1 = tr.nodes.add("a1","按产品")

Dim Values() As String = dt.GetComboListString("产品").split("|")
For i As Integer = 0 To Values.Length - 1
    nd1.nodes.add("0101",Values(i))
Next

 

……

Dim tr As winform.treeview
Dim nd1 As winform.treenode
Dim nd2 As winform.treenode
tr = e.Form.controls("treeview1")
Dim cmd As new sqlcommand
Dim dt,dt2 As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
dt2 = dt
nd1 = tr.nodes.add("a1","按产品")
Dim Values() As String = dt.GetComboListString("产品").split("|")
For i As Integer = 0 To Values.Length - 1
    nd1.nodes.add("0101",Values(i))
Next
nd1 = tr.nodes.add("a1","按客户")
Dim Values() As String = dt.GetComboListString("客户").split("|")
For i As Integer = 0 To Values.Length - 1
    nd1.nodes.add("0101",Values(i))
Next

tr.expandall()

 

 

按客户怎么不行了

好了，谢谢