以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  通过窗口筛选后，按新增（在窗口中）按钮，筛选的结果中不显示新增的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103702)
--  作者：蓝蚂蚁
--  发布时间：2017/7/14 19:28:00
--  通过窗口筛选后，按新增（在窗口中）按钮，筛选的结果中不显示新增的行
搞了半天还是不知道哪里出现了问题。所以直接提问了。
窗口的表是B表的副本，允许编辑的。现在通过窗口的筛选按钮进行筛选，这时窗口的表就是筛选后的结果。这时候通过窗口中的新增行按钮进行新增，如何才能立马在刚才筛选的结果中显示新增的行，不用通过窗口撤销筛选按钮进行撤销，再翻到最后一行进行录入？
不知道这样表达老师们能看懂我的意思没有，小学没毕业的，语文和表达能力实在有限！！！！
--  作者：有点蓝
--  发布时间：2017/7/14 20:08:00
--  
参考：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=93969

Dim max As Integer = DataTables("B表").Compute("max([_Identify])")

Tables("窗口1_Tables1").Filter = iif(Tables("窗口1_Tables1").Filter > "",Tables("窗口1_Tables1").Filter & " and ","") & " [_Identify] > " & max
--  作者：蓝蚂蚁
--  发布时间：2017/7/16 10:31:00
--  
有点蓝老师 按照你的提示搞不定啊 
附上项目
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹管理项目1.zip
--  作者：有点甜
--  发布时间：2017/7/16 10:48:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：蓝蚂蚁
--  发布时间：2017/7/16 10:59:00
--  
也就是说不用下面的代码就OK了？
Dim max As Integer = DataTables("B表").Compute("max([_Identify])")
Tables("窗口1_Tables1").Filter = iif(Tables("窗口1_Tables1").Filter > "",Tables("窗口1_Tables1").Filter & " and ","") & " [_Identify] > " & max
--  作者：蓝蚂蚁
--  发布时间：2017/7/16 11:04:00
--  
那为什么我项目里的代码不行：
Dim Filter As String
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("TextBox3")
    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("TextBox4")
    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("TextBox5")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "归档编码 like \'%" & .Value & "%\'" 
    End If
End With
If e.Form.Controls("CheckBox1").Checked = True 
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "注册备案_效期<# " & Date.Today & "#"      \'< #" & Date.Today & "#"
End If
If e.Form.Controls("CheckBox2").Checked = True 
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "注册备案_有无=false"      
End If
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "归档类别=\'" & .Value & "\'" 
    End If
End With
If e.Form.Controls("CheckBox3").checked=True
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "临时标记=False" 
End If
Tables("新版医用耗材产品证件管理主窗口_Table1").Filter = Filter
--  作者：有点甜
--  发布时间：2017/7/16 12:41:00
--  
 去看你新增行按钮的代码。
--  作者：蓝蚂蚁
--  发布时间：2017/7/16 16:45:00
--  
新增行的代码就只有一句：Tables("新版医用耗材产品证件管理主窗口_Table1").AddNew
--  作者：有点甜
--  发布时间：2017/7/16 17:51:00
--  
认认真真看4楼例子。
--  作者：蓝蚂蚁
--  发布时间：2017/7/16 20:58:00
--  
谢谢 老师 是我太大意了，没有仔细看你的代码，再次感谢。