Dim Value() As String

Dim Filter As String

Value = e.Node.FullPath.Split("\\")

Dim tr As WinForm.TreeView

tr = e.Form.Controls("TreeView1")

Select Case e.Node.Level

Case 0

Filter = "Year(进货日期) = " & Value(0)

Case 1

Filter ="Year(进货日期) = " & Value(0) & " And Month(进货日期) = " & Value(1)

Case 2

Filter ="Year(进货日期) = " & Value(0) & " And Month(进货日期) = " & Value(1) & " And 厂家 = \'" & Value(2) & "\'"

End Select

DataTables("进货").LoadFilter = Filter

DataTables("进货").Load()

在导航栏中加入上述代码，打开导航时没有显示目录树

你要执行BuildTree方法来生产目录树 否则不会产生任何东西.