主题：最近频繁更新,好像每次更新后软件都出一现小问题啊！

越新版本，问题越少

 试试这样写

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

那段代码应该是没有什么问题的如果报错的话，有可能是你其它代码影响了，比如 tabcontrol 控件的代码

你最好上传一个出错例子测试。