主题：如何实现这样的目录树,动态的!

如何实现如下这样的动态目录树,

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("生产管理", "", "合同编号")

同时要求  [状态]='库存'

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("生产管理", "", "合同编号","[状态]='库存'")

这样写对吗?

谢谢,搞定! 但是现在出现一个新的问题,原先:

NodeMouseDoubleClick的代码如下:
Dim ty As String = e.Form.Controls("TreeView1").SelectedNode.Text
Dim ls As WinForm.DataList = e.Form.Controls("DataList1")
ls.RowFilter = "[合同编号] = '" & ty & "'"

现在如何也增加上面的筛选呢?      [状态]='库存'

看不懂,慢慢学了!