主题：[求助]新增关联表记录时的问题

1、新增的窗口；

2、打开后肯定在第一条位置；

3、合同一览表currentChanged事件

If Forms("合同一览窗口").Opened Then
    If e.Table.current IsNot Nothing
        Forms("合同一览窗口").Controls("Table2").Table.Filter = "合同编号 = '" & e.Table.current("合同编号") & "'"
    Else
        Forms("合同一览窗口").Controls("Table2").Table.Filter = "1=2"
    End If
End If

红袍兄：这个项目还有一个很奇怪的现象，你帮着分析一下

在系统菜单模式下，将合同一览表的当前行选择为非第一条记录，然后，打开窗口设计，点击设计“合同一览表窗口”，“合同一览表窗口”的设计窗口打开后，不用做任何修改，点击“预览”，高频率的提示错误，查看详细信息为“SystemIdle“，我反复查看项目属性，项目的SystemIdle属性没有设置任何代码啊？

初步怀疑跟“合同一览表”的表绘制属性的代码有关，你帮着看一下。

对于实时显示的问题，我的解决方案是：在新增窗口的afterclose事件中加入上述代码。

不过对于上面出现的频繁报错的问题，希望您能够帮着看一下

写错了，AfterClose事件

If Tables("合同一览表").current IsNot Nothing
    Forms("合同一览窗口").Controls("Table2").Table.Filter = "合同编号 = '" & Tables("合同一览表").current("合同编号") & "'"
Else
    Forms("合同一览窗口").Controls("Table2").Table.Filter = "1=2"
End If

回复全部楼上，测试的时候，尽量不要用预览来测试。

但我直接预览，确实是不会出错啊。

------------------------------------

认认真真看完全部的帖子和我发的例子。

红袍兄：确实是这样，如果直接打开项目来测试是不会报错的，很奇怪。

感谢您的回复。