怎样能达到TREE控制上的节点作为子窗体的数据筛选的条件

可用tree的点击事件启动子窗体的筛选，例如

Private Sub TreeView1_NodeClick(ByVal Node As Object)
    编码属性库存子窗体.Form.Filter = "[代码] like '" & Right(Node.Key, Len(Node.Key) - 1) & "*'"
    编码属性库存子窗体.Form.FilterOn = True
End Sub