主题：关于筛选条件的疑问？

执行一个筛选条件后，再进行第二个筛选条件 要不要在前面加个 清除条件 如tables("表A“).filter=nothing

 

 不需要，filter都是重新筛选的。

好像不行

Dim s As String
s=e.node.fullname.replace("\",".")
Dim Filter As String
Dim tb As WinForm.Table = e.Form.Controls("Table1")
If e.Node.Text="显示所有行" Then
Tables("表A").Filter = Filter
Else
Dim i As Integer = 0
Dim p As Integer
Tables("表A").Filter = Nothing
For Each r As Row In Tables("表A").Rows
    Dim st As  String =  r("第一列")
    If  st.Length > i And st.startswith(s) Then
        i = st.Length
    End If
Next
Filter="[第一列] Like '" & s & "%' And  len(第一列)='"& i &"'"
Tables("表A").Filter = Filter
End If

 

 

我这里加了个清除条件 不清除不行

 去掉，不需要清除的。如果有问题，做个具体例子看一下

去掉 不行的 我上传

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:通过目录树筛选表数据.foxdb

 你是这个意思？

 

Dim s As String
s=e.node.fullname.replace("\",".")
Dim Filter As String = ""
Dim tb As WinForm.Table = e.Form.Controls("Table1")
If e.Node.Text <> "显示所有行" Then
    Filter="[第一列] Like '" & s & "%'"
End If

Tables("表A").Filter = Filter

Dim s As String
s=e.node.fullname.replace("\",".")
Dim Filter As String=" "
Dim tb As WinForm.Table = e.Form.Controls("Table1")
If e.Node.Text="显示所有行" Then
Tables("表A").Filter = Filter
Else
Dim i As Integer = 0
Dim p As Integer

For Each r As Row In Tables("表A").Rows
    Dim st As  String =  r("第一列")
    If  st.Length > i And st.startswith(s) Then
        i = st.Length
    End If
Next
Filter="[第一列] Like '" & s & "%' And  len(第一列)='"& i &"'"
Tables("表A").Filter = Filter
End If

 

 

这段代码 点击第二个节点 就会出现空白记录了

 

 

 自己看7楼代码，看不到你这段代码想表达什么

就是筛选不出来了