请教TreeView窗体筛选

你那窗体内不是有个“查询”按钮吗，直接调用它的代码不就可以吗？没必要再去完善NodeClick事件的代码了，你删除“查询”按钮及其事件代码，找到下述代码：

Private Sub xTree_NodeClick(ByVal Node As Object)

Dim I As Integer
Dim lngKey As Long
Dim strPath As String
Dim lblList As String
Dim strsql As String

   lngKey = Nz(Right(Node.key, Len(Node.key) - 1))

For I = 1 To xTree.Nodes.count
    If xTree.Nodes(I).Selected Then
         strPath = xTree.Nodes(I).FullPath
  End If
Next

   'MsgBox lngKey & " " & strPath, 64, "你选择的是："
   Me.lblList = strPath
   Me.key = Node.key
Form_cplb_b.Visible = True  '加上这一句
Form_cplb_b.Requery   '加上这一句
End Sub
加上这两句应该可以的,呵呵