主题：目录树设置

看看这个：
 
http://www.foxtable.net/help/topics/0917.htm

稍微改一下，就是加载树了。

也可以看看这个：

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

自己写一下吧，就当做练习，逻辑很清楚：

一层节点从货品资料目录树设置表的第一行找出列名合成表达式，二层节点从货品资料目录树设置表的第二行找出列名合成表达式，其余类推....

帮助的代码是这样的：

 
Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
   Case 0
       Tables("订单").Filter ="[产品] = '" & Value(0) & "'"
   Case 1
      Tables("订单").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) & "'"
   Case 2
      Tables("订单").Filter ="[产品] = '" & Value(0) & "' And [客户] = '" & Value(1) &"' And [雇员] = '" & Value(2) & "'"
End Select
 

你现在不过是取得每一层节点的列名，然后对应替换具体的列名即可：

 
Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("订单").Filter = s0 & " = '" & Value(0) & "'"
    Case 1
        Tables("订单").Filter = s0 & " = '" & Value(0) & "' And " & s1 & " =  '" & Value(1) & "'"
    Case 2
        Tables("订单").Filter = s0 & " = '" & Value(0) & "' And " & s1 & " = '" & Value(1) & "' And " & s2 & " = '" & value(2) & "'"
End Select