- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]界面出现大量空白 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195815)
-- 发布时间：2025/3/11 9:08:00
-- [求助]界面出现大量空白
蓝版，请教下，发布后的程序，用了一段时间，出现这个问题
菜单也没了
操作：1、删除bin,之后重新登录，还是有空白
2、换账户正常
3、切换为刚开始有问题的账户，登录又是正常的
遇到过好几次这个问题了，不知道原因呢
-- 发布时间：2025/3/11 9:08:00
-- 回复：（zm6096）[求助]界面出现大量空白
下面图片就是显示正常的图片
-- 发布时间：2025/3/11 9:24:00
--
AfterOpenProject事件完整代码发上来看看
-- 发布时间：2025/3/11 9:41:00
--
If User.Name = "开发者" Then
\' RibbonTabs("系统设置").Visible = True
TableCaptionVisible = True
\'DataTables("凭证明细表").LoadFilter = ""
\'DataTables("凭证明细表").Load()
Else
\' RibbonTabs("系统设置").Visible = False
\' TableCaptionVisible = False
For Each tb1 As Table In Tables
If tb1.Name = "MIN" Then
tb1.Visible = True
Else
tb1.Visible = False
End If
Next
End If
Forms("主窗口").Open()
Forms("导航窗口上").Open()
Forms("导航").Open()
MainTable = Tables("MIN")
-- 发布时间：2025/3/11 9:55:00
--
试试
Forms("主窗口").Open()
Forms("导航窗口上").Open()
Forms("导航").Open()
If User.Name = "开发者" Then
\' RibbonTabs("系统设置").Visible = True
TableCaptionVisible = True
\'DataTables("凭证明细表").LoadFilter = ""
\'DataTables("凭证明细表").Load()
Else
Dim c = BaseMainForm.controls("C1Ribbon1")
c.visible = False
RibbonTabs.HideTabHeaderRow = True
TableCaptionVisible = False
For Each tb1 As Table In Tables
If tb1.Name = "MIN" Then
tb1.Visible = True
Else
tb1.Visible = False
End If
Next
End If
MainTable = Tables("MIN")
-- 发布时间：2025/3/11 10:03:00
--
ok，感谢，我替换下[此贴子已经被作者于2025/3/11 10:03:27编辑过]