副本表,只会显示筛选后的数据,因为你新增行的值是空白,不满足,自然被筛选掉。
你可以新增按钮这样写
dim t as table = Tables(e.Form.Name & "_Table1")Dim nr as row = t.AddNewt.filter = iif(t.filter > "", t.filter & " or _Identify = " & nr("_Identify"), "")