一个关于树节点复选框筛选子窗体数据的问题

fnsmydyang

请教各位老师，如何修改以下代码，做到多条件筛选？

Private Sub TreeView2_NodeCheck(ByVal Node As Object)
   Dim Str As String
   Dim I As Integer
   Dim tNode As Node
   Dim tR As TreeView
   Set tR = Me.TreeView2.Object
   For Each tNode In tR.Nodes
       If tNode.Key <> "Toop" Then
          If tNode.Checked = True Then
             Str = Str & "," & tNode.Text
          End If
       End If
   Next
   Str = Right(Str, Len(Str) - 1)
   Me.Child0.Form.Filter = "[BreedName] like '*" & Str & "*'"
   Me.Child0.Form.FilterOn = True
End Sub

tmtony

"[BreedName] like '*" & Str & "*'"

要根据  Str = Str & "," & tNode.Text 这里有多个 选择内容
加多个 like语句, 然后用 or串起来

todaynew

sub myFilter(s as string)
    '参数：s 取值为 and/or
    Dim Str As String
    Dim I As Integer
    Dim tNode As Node
    Dim tR As TreeView
    Set tR = Me.TreeView2.Object

    select case s
         case "or"
              str="false"
         case "and"
              str="true"
         case else
              exit sub
    end select

    For Each tNode In tR.Nodes
        If tNode.Key <> "Toop" Then
           If tNode.Checked = True Then
              Str = Str & " " & s & " [BreedName] like '*" & tNode.Text  & "*'"
           End If
        End If
    Next
    Me.Child0.Form.Filter = Str
    Me.Child0.Form.FilterOn = True
end sub

tmtony

嗯, 老汉的更通用

fnsmydyang

谢谢两位老师，学习了！

fnsmydyang

tmtony 发表于 2013-6-20 11:30
" like '*" & Str & "*'"

要根据  Str = Str & "," & tNode.Text 这里有多个 选择内容

谢谢了。

fnsmydyang

todaynew 发表于 2013-6-20 12:27
sub myFilter(s as string)
    '参数：s 取值为 and/or
    Dim Str As String

实用，谢谢了！