主题：目录树问题

同样行的。

Vars("Val") = Vars("Val") + 1
Select Case Vars("Val") Mod 4
    Case 1
        Vars("TreeViewName") = "剩余天数_开始"
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","剩余天数_开始","图号")
    Case  2
        Vars("TreeViewName") = "剩余天数_结束"
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","剩余天数_结束","图号")
    Case  3
        Vars("TreeViewName") = "图号"
        e.Form.Controls("TreeView1").BuildDataTree("生产工序", "", "工序_班组","图号")
    Case  0
        Tables("生产工序").ApplyFilter = False
End Select