以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于筛选条件的疑问？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56875)
--  作者：jswjyjf
--  发布时间：2014/9/14 11:59:00
--  关于筛选条件的疑问？

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

 
--  作者：有点甜
--  发布时间：2014/9/14 12:00:00
--  
 不需要，filter都是重新筛选的。
--  作者：jswjyjf
--  发布时间：2014/9/14 12:02:00
--  

好像不行

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

 

 

我这里加了个清除条件 不清除不行
--  作者：有点甜
--  发布时间：2014/9/14 12:05:00
--  
 去掉，不需要清除的。如果有问题，做个具体例子看一下
[此贴子已经被作者于2014-9-14 12:05:43编辑过]
--  作者：jswjyjf
--  发布时间：2014/9/14 12:13:00
--  

去掉 不行的 我上传

 
--  作者：jswjyjf
--  发布时间：2014/9/14 12:15:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:通过目录树筛选表数据.foxdb
--  作者：有点甜
--  发布时间：2014/9/14 14:26:00
--  

 你是这个意思？

 

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
--  作者：jswjyjf
--  发布时间：2014/9/14 16:31:00
--  

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

 

 

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

 

 
--  作者：有点甜
--  发布时间：2014/9/14 16:32:00
--  
 自己看7楼代码，看不到你这段代码想表达什么
--  作者：jswjyjf
--  发布时间：2014/9/14 16:33:00
--  

就是筛选不出来了