以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  最近频繁更新,好像每次更新后软件都出一现小问题啊！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54945)
--  作者：htlk25
--  发布时间：2014/8/7 19:11:00
--  最近频繁更新,好像每次更新后软件都出一现小问题啊！
最近频繁更新,好像每次更新后软件都出一现小问题啊！
--  作者：有点甜
--  发布时间：2014/8/7 19:13:00
--  
 好像是，可以暂时不更新使用，等稳定一点再用。
--  作者：htlk25
--  发布时间：2014/8/7 19:14:00
--  
关键是出现的问题，我不更新也不行啊
--  作者：htlk25
--  发布时间：2014/8/7 19:15:00
--  
老大们知道啥时能够稳定啊！
--  作者：有点甜
--  发布时间：2014/8/7 19:16:00
--  

越新版本，问题越少
--  作者：htlk25
--  发布时间：2014/8/7 19:27:00
--  
我下面的这段代码有问题吗？每次执行后有时是我想要的（隐藏tabcontrol1的指定页），有时不是我想要的，唉！
谢老师指点一下吧！谢谢！

If Forms("合作记录主窗").Opened = True Then
    Dim pg As WinForm.TabPage
    pg = Forms("合作记录主窗").Controls("TabControl1").TabPages("效果图")
    If e.Table.Current("效果图") = ""  Then
        pg.Visible = False
    Else
        pg.Visible = True    \'
    End If
    
    Dim pg1 As WinForm.TabPage
    pg1 = Forms("合作记录主窗").Controls("TabControl1").TabPages("设计资料")
    If Tables("合作记录.设计要求表").Rows.Count = 0  Then
        pg1.Visible = False
    Else
        pg1.Visible = True    \'
    End If
End If
--  作者：有点甜
--  发布时间：2014/8/7 19:33:00
--  
 写在什么事件？
--  作者：htlk25
--  发布时间：2014/8/7 21:55:00
--  
表的当前行改变事件里，而且这个代码还会造成项目启动完成后出现错误提示
--  作者：有点甜
--  发布时间：2014/8/7 21:57:00
--  

 试试这样写

 

If Forms("合作记录主窗").Opened = True Then
    Dim pg As WinForm.TabPage
    pg = Forms("合作记录主窗").Controls("TabControl1").TabPages("效果图")
    If e.Table.Current("效果图") IsNot Nothing AndAlso e.Table.Current("效果图") = ""  Then
        pg.Visible = False
    Else
        pg.Visible = True    \'
    End If
   
    Dim pg1 As WinForm.TabPage
    pg1 = Forms("合作记录主窗").Controls("TabControl1").TabPages("设计资料")
    If Tables("合作记录.设计要求表").Rows.Count = 0  Then
        pg1.Visible = False
    Else
        pg1.Visible = True    \'
    End If
End If
--  作者：htlk25
--  发布时间：2014/8/8 14:12:00
--  
改了一下，”效果图“页面的显示和关闭好像这样可以实现，但“设计资料”页面的显示和关闭还是有问题，是我的代码有问题吗？
有点不理解啊！
另外启动完项目时还是有错误提示，如下：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140808141005.jpg
图片点击可在新窗口打开查看

代码如下：
If Forms("合作记录主窗").Opened = True Then
    Dim pg As WinForm.TabPage
    pg = Forms("合作记录主窗").Controls("TabControl1").TabPages("效果图")
    If e.Table.Current("效果图") IsNot Nothing AndAlso e.Table.Current("效果图") = ""  Then
        pg.Visible = False
    Else
        pg.Visible = True    \'
    End If
    
    Dim pg1 As WinForm.TabPage
    pg1 = Forms("合作记录主窗").Controls("TabControl1").TabPages("设计资料")
    If Tables("合作记录.设计要求表").Rows.Count = 0  Then
        pg1.Visible = False
    Else
        pg1.Visible = True    \'
    End If
End If