窗体查询

多此一举。

即使要弄，也只需将代码稍微修改即可。

假设在窗体上放一个文本框，其名曰：模糊查询，则在该文本框的更新后事件中（或者按钮的单击事件中）写：

Dim wh As String
wh = "部门名称 & 平台名称 &  分组名称 Like '*" & me.模糊查询.value & "*'"
Me.Form.Filter = wh
Me.Form.FilterOn = True

无非是将节点的text属性，换成文本框的value属性。其他的都没变化。

更简单的方法是，写一个自定义子程序：

sub formfilter(byval txt as string)
　　Dim wh As String
　　wh = "部门名称 & 平台名称 &  分组名称 Like '*" & txt & "*'"
　　Me.Form.Filter = wh
　　Me.Form.FilterOn = True
end sub

节点的单击事件中，这样调用：

call  formfilter(node.text)

文本框的更新后事件中，同样调用这个子程序：

call  formfilter(me.模糊查询.value)