以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  互斥影响  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=88034)

--  作者:douglas738888
--  发布时间:2016/7/25 15:37:00
--  互斥影响
请教老师,我在同一个窗口下设置下面两部分代码好像有互斥,取消其中一段代码,就正常,不然打开窗口时报“未引用对象实例”,其他功能都正常。

窗口AFTERLOAD

Tables("设计待审_Table3").Filter = "1=2"  \'抑制Table3闪屏



设计待审_Table3的 属性CurrentChanged   (副本)

Dim dr As DataRow = e.Table.Current.DataRow                  \'设计待审_Table3当前行与正本该行同步当前行
Dim wz As Integer = Tables("工作策划副表时间审批").FindRow(dr)
If wz >=0 Then
      Tables("工作策划副表时间审批").Position = wz
End If

--  作者:大红袍
--  发布时间:2016/7/25 15:40:00
--  

currentChanged事件,第一句

 

If e.Table.Current Is Nothing Then Return