以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 在窗口中的筛选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55317)
--  作者：如意大帝
--  发布时间：2014/8/14 12:08:00
--  [求助] 在窗口中的筛选问题
在窗口上的一个文本框中输入单号，显示这一行，如何实现？
--  作者：神莱之币
--  发布时间：2014/8/14 12:13:00
--  
我做过类似的，我是参考CaseStudy里的"自定义录入界面之一.Table"，复制代码，稍微改改
--  作者：有点甜
--  发布时间：2014/8/14 14:03:00
--  

 你可以参考如下例子

 

http://www.foxtable.com/help/topics/1058.htm

 
--  作者：如意大帝
--  发布时间：2014/8/14 14:07:00
--  
谢谢，我需要在窗口中显示，直接修改比较方便。
--  作者：有点甜
--  发布时间：2014/8/14 14:16:00
--  
以下是引用如意大帝在2014-8-14 14:07:00的发言：
谢谢，我需要在窗口中显示，直接修改比较方便。

 

 也是一样的，你先参考着做，做不好，就把你做一半的例子上传上来。
--  作者：如意大帝
--  发布时间：2014/8/14 17:38:00
--  

Dim Filter As String
With e.Form.Controls("TB1")
    If .Value IsNot Nothing Then
        Filter = "订单号 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("总表").Filter = Filter
End If

 

      成功在表中筛选出一行，但我想在窗口中筛选，直接修改起来比较方便。应该怎样改呢？
--  作者：有点甜
--  发布时间：2014/8/14 17:41:00
--  

红色改成你的对应的表名

 

Dim Filter As String
With e.Form.Controls("TB1")
    If .Value IsNot Nothing Then
        Filter = "订单号 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("窗口1_Table1").Filter = Filter
End If
--  作者：Bin
--  发布时间：2014/8/14 17:41:00
--  

Dim Filter As String
With e.Form.Controls("TB1")
    If .Value IsNot Nothing Then
        Filter = "订单号 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("窗口1_Table1").Filter = Filter
End If
--  作者：如意大帝
--  发布时间：2014/8/15 14:29:00
--  
圆满解决，非常感谢！