主题：[求助]关于treeview问题

1、AfterLoad事件改为：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","产品", "客户")
trv.Nodes.Insert("加载所有数据","加载所有数据",0)

2、NodeMouseClick事件代码改为：

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

看看:

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