以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于表数据筛选的问题。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119730)
--  作者：wangyi5056
--  发布时间：2018/5/30 21:32:00
--  [求助]关于表数据筛选的问题。
请教老师们，帮助解答！
      问题是关于筛选表中数据的。首先我建立了数据表（表A）： 第一列    第二列 ,然后建立查询窗口，用到文本控件（textbox1）和按钮控件（button1），table1控件
                                                                                    p1            1
                                                                                    p1            0
                                                                                    p1            2
                                                                                    p2            0
                                                                                    p2            0
                                                                                    p3            2    
    想实现的效果是：当在文本控件中填写1并按按钮查询时 结果为：第一列  第二列  ，填0时结果为：第一列  第二列，填2时结果为：第一列  第二列 
                                                                                        p1       1                              p2      0                            p3       2
                                                                                                                                  p2       0 
也就是说当查询除1以外的数据时，假设查询结果的第一列相同的値存在对应第二列1时，则此行在显示筛选结果中就不包含在内。

如何编写？请求帮助！！！
--  作者：有点甜
--  发布时间：2018/5/30 21:41:00
--  

合成条件

 

Dim s As String = 0
Dim t As Table = Tables("表A")
If s = "1" Then
    t.filter = "第二列 = \'" & s & "\'"
Else
    Dim s1 As String = t.DataTable.GetComboListString("第一列", "第二列=\'1\'")
    s1 = s1.replace("|", "\',\'")
    t.filter = "第二列 = \'" & s & "\' and 第一列 not in (\'" & s1 & "\')"   
End If
--  作者：wangyi5056
--  发布时间：2018/5/30 21:55:00
--  
老师这句没有看懂Dim s As String = 0为什么等于0呀，我在测试中把您给的代码放到了按钮的事件中，当文本框填写数字并查询时，没有结果显示出来啊，是什么原因？还有就是没有看到定义文本框的语句，请老师赐教！
--  作者：有点甜
--  发布时间：2018/5/30 21:58:00
--  
Dim s As String = e.form.controls("TextBox1").Text
--  作者：wangyi5056
--  发布时间：2018/5/30 22:03:00
--  
感谢老师，实现了！非常感谢。