主题：如何像示例“自定义录入一“一样设置加载树

“自定义录入一”有个功能就是根据TEXTCHANGED进行模糊筛选，这一步及后面该如何更改代码。感谢

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

简单来讲就是根据目录树上面创建一个文本框，因为节点太多，需要能模糊搜索节点~