主题：如何设置双击目录树选中节点，展开当前节点后的所有节点？

将目录树的AfterCheckNode事件代码设置为：

For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next

将目录树的DoubleClick事件代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("意和出入库登记表", "客户|工序|品名规格|出库单价")

Trv.Nodes(0).Expand()

Trv.ExpandAll()

测试结果：

双击目录树中的任意节点后，整个目录树的所有节点，全都展开了，而不是预期的当前节点后的所有节点。