主题：关于帮助中用SQL语句设计加载树的提问。（狐爸已经解决了）

这里有解决方法：
http://www.foxtable.com/help/topics/2302.htm

 
代码很简单：

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 0 TYhen

       nd.Text = md.Text & "年"

    Elseif nd.Level = 1 then

       nd.Text = md.Text & "年"
    End If
Next
 
多看帮助。

你不修改加载代码肯定出错的。

因为目录树节点的值现在是“1999年”，不是“1999”，而代码要的是1999。

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="Year(日期) = " & Value(0).Replace("年","")
    Case 1
        Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","")
    Case 2
        Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","") & " And 产品 = '" & Value(2) & "'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()