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

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()

 

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

谢谢

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

出现如图错误，另外客户名也是重复的啊
此主题相关图片如下：未命名.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
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()

 

 

按客户怎么不行了

好了，谢谢

实在不好意思，双击某个产品节点，如何动态加载，代码怎么写啊

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("a2","按客户")
Dim Values1() As String = dt.GetComboListString("客户").split("|")
For j As Integer = 0 To Values.Length - 1
    nd1.nodes.add("0101",Values1(j))
Next
tr.Nodes.add(0,"加载所有数据")
tr.expandall()

 

 

用以上公式生成目录树

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim Value() As String
    Value = e.Node.FullPath.Split("\")
    Select Case e.Node.Level
        Case 1
            Filter ="[产品] = '" & Value(1) & "'"
        Case 1
            Filter ="[客户] = '" & Value(2) & "'"
    End Select
End If
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

 

用以上公式双击加载，为什么产品可以加载，客户不能加载，公式该怎么改啊