[求助]关于副表中增加筛选后不显示增加行的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中各有表“table2”，设为副表，在事件中设置增加行代码，却无法显示，代码如下：

Dim wbl As String = e.Form.Controls("Table2").Table.name

Dim bh As WinForm.TextBox = e.Form.Controls("TextBox4")

Tables(wbl).Filter = "[" & bhm & "] = 'bh'"

'当行数为0时自动增加一行

If Tables(wbl).Rows.Count = 0

Tables(wbl).AddNew()

End If

'自动添加已经勾选申请采购的器件

With Tables("采购申请")

Dim qnm As String() = {"申请编号","类别_大类","类别_小类","规格型号","封装_类型","封装_引脚","器件编号"}

.Filter = "[采购下单] = True And [同意采购] = true"

For r As Integer = 0 To .Rows.count - 1

If Tables(wbl).Rows.count < .Rows.count

Tables(wbl).AddNew()

End If

MessageBox.Show(Tables(wbl).Rows.count)

' For Each cnm As String In qnm

' Tables(wbl).Rows(r)(cnm) = .Rows(r)(cnm)

' Next

.Filter = ""

End With

请教老师，我这代码需要怎么修改才能有效呢？

主题：[求助]关于副表中增加筛选后不显示增加行的问题