通过窗口筛选后，按新增（在窗口中）按钮，筛选的结果中不显示新增的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

搞了半天还是不知道哪里出现了问题。所以直接提问了。

窗口的表是B表的副本，允许编辑的。现在通过窗口的筛选按钮进行筛选，这时窗口的表就是筛选后的结果。这时候通过窗口中的新增行按钮进行新增，如何才能立马在刚才筛选的结果中显示新增的行，不用通过窗口撤销筛选按钮进行撤销，再翻到最后一行进行录入？

不知道这样表达老师们能看懂我的意思没有，小学没毕业的，语文和表达能力实在有限！！！！

有点蓝老师按照你的提示搞不定啊

附上项目

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹管理项目1.zip

也就是说不用下面的代码就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

那为什么我项目里的代码不行：

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

新增行的代码就只有一句：Tables("新版医用耗材产品证件管理主窗口_Table1").AddNew

谢谢老师是我太大意了，没有仔细看你的代码，再次感谢。

主题：通过窗口筛选后，按新增（在窗口中）按钮，筛选的结果中不显示新增的行