主题：[求助]多选目录树如果是三级节点代码要怎么写？

请教高手，帮助里只有多选目录树二级节点的例子，想请教下三级节点的代码应该怎么写啊，有人帮忙指导下了

可以多选的筛选树本节的内容可以参考CaseStudy目录下的文件:多选筛选树.Table本节的任务是生成一个可以多选的筛选树：设计步骤非常简单：1、新建一个窗口，插入一个目录树控件，将目录树的“显示复选框”属性设置为True。2、将窗口的AfterLoad事件代码设置为：e.Form.Controls("TreeView1").BuildTree("订单","产品|客户")3、将目录树的AfterCheckNode事件代码设置为：DimtrvAsWinForm.TreeView=e.Sender
DimfltAsString
ForEachndAsWinForm.TreeNodeIne.node.Nodes'同步子节点选中状态
nd.Checked=e.Node.Checked
Next
Ife.node.ParentNodeIsNotNothingThen'去掉父节点选中状态
e.node.ParentNode.Checked=False
EndIf
ForEachndAsWinForm.TreeNodeIntrv.AllNodes
Ifnd.Level>0AndAlsond.ParentNode.CheckedThen'如果父节点选中
ContinueFor'跳过此节点,处理下一结点
EndIf
Ifnd.CheckedThen
Ifflt>""Then
flt=flt&" Or "'注意用or而不是And
EndIf
Ifnd.Level=0Then'注意下面的条件都要用括号括起来
flt=flt&"(产品= '"&nd.Text&"')"
Else
flt=flt&"( 产品 = '"&nd.ParentNode.Text&"' And 客户 = '"&nd.Text&"')"
EndIf
EndIf
Next
Tables("订单").Filter=flt
就是这个例子，如果是三级节点 比如是  大类|二类|三类 应该怎么写？？