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

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

看看：

http://www.foxtable.com/help/topics/2054.htm

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

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

请版主看一下啊

................

Select Case e.Node.Level
        Case 1
            Filter ="[产品] = '" & Value(1) & "' Or [客户] = '" & Value(1) & "'"
        'Case 1
            'Filter ="[客户] = '" & Value(2) & "'"
End Select
....................