以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表变成白色的  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91856)
--  作者：77611471
--  发布时间：2016/10/20 14:43:00
--  [求助]表变成白色的
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter ="产品编号 Like \'%" & .Value & "%\'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单编号 Like \'%" & .Value & "%\'"
    End If
End With
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "部门 Like \'%" & .Value & "%\'"
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开始时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开始时间 <= #" & .Value & "#"
    End If
End With

If Filter > "" Then
    Tables("订单工时成本").Filter = Filter
End If


以上这是一个查询按钮，在窗口中，窗口中也有相应的一个表，但是执行之后原来的的表就变成了白色，什么都看不到？是那里问题？要怎么改？
--  作者：狐狸爸爸
--  发布时间：2016/10/20 15:06:00
--  
说明没有条件的行。
用Messagebox.show显示以下合成的filter看看
--  作者：77611471
--  发布时间：2016/10/20 15:32:00
--  
没有明白什么意思！
 为什么我的代码会影响原表？
--  作者：狐狸爸爸
--  发布时间：2016/10/20 15:40:00
--  
我也不明白你的意思，你做个例子发上来看看
--  作者：有点蓝
--  发布时间：2016/10/20 15:53:00
--  
Tables("订单工时成本").Filter = Filter，操作的就是主表，没看到窗口表的痕迹