菜单设计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单设计问题

共有6656人关注过本帖树形打印复制链接主题：菜单设计问题

裴保民

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/11/9 9:15:00 [只看该作者]

我在AfterOpenProject事件中写了如下代码：

Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
        If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
       StatusBar.DefaultMessage ="机具进销存管理系统 2.0    " & Tables("注册用户信息表").Current("公司名称")
      StatusBar.Message3 = "服务支持:技术有限公司服务热线:1300000000"
            OK = True
        End If

为什么不显示StatusBar.Message3 = "服务支持:技术有限公司服务热线:1300000000"呢？

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/9 9:19:00 [只看该作者]

1、加入msgbox，看是否执行了代码

msgbox(1)

StatusBar.Message3 = "服务支持:技术有限公司服务热线:1300000000"

2、你其它地方是否还写有 StatusBar.Message3 的代码？被替换了？系统主菜单写有 StatusBar.Message3 = xxx 的代码，你要把那段代码删掉。

裴保民

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/11/9 14:38:00 [只看该作者]

我查了系统主菜单没有写有StatusBar.Message3 = xxx 等方面的代码，其他地方也没编辑过，运行后StatusBar.Message3 就是不命名

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/9 15:21:00 [只看该作者]

以下是引用裴保民在2017/11/9 14:38:00的发言：
我查了系统主菜单没有写有StatusBar.Message3 = xxx 等方面的代码，其他地方也没编辑过，运行后StatusBar.Message3 就是不命名

引用系统菜单

http://www.foxtable.com/webhelp/scr/1079.htm

输出全部代码，搜索关键字

http://www.foxtable.com/webhelp/scr/1987.htm

裴保民

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/11/9 16:38:00 [只看该作者]

Dim t As Table

'RibbonMenu.StatusBar.Message3 = ""

Vars("SysUpdateAggregate") = False

If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then

Return

Else

t = CurrentTable

End If

If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then

Return

End If

For c As Integer = t.LeftCol To t.RightCol

If t.Cols(c).IsNumeric = False Then

Return

End If

Vars("SysUpdateAggregate") = True

老师找到了在AfterSelRangeChange事件中有一句红色字体的代码，我把他删除后就正常了，这句话是什么意思呢？删除后有其他影响吗？

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/9 18:43:00 [只看该作者]

以下是引用裴保民在2017/11/9 16:38:00的发言：

老师找到了在AfterSelRangeChange事件中有一句红色字体的代码，我把他删除后就正常了，这句话是什么意思呢？删除后有其他影响吗？

没影响的，这段代码，是用实现自动计算功能的 http://www.foxtable.com/webhelp/scr/0176.htm

裴保民

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2017/11/9 21:01:00 [只看该作者]

我在计划管理中写了如下代码运行后错误，哪错了老师

StatusBar.Message2 = " || 登录用户: & _UserName & || 角色权限: & _UserGroup & || 公司名称: & Tables("注册用户信息表").Current("公司名称") & || 系统时间: & Date.now () & || 服务支持: & 电子技术有限公司 & || 服务热线: 130000000 "

此主题相关图片如下：564.jpg

[此贴子已经被作者于2017/11/9 21:02:11编辑过]

有点甜

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/9 21:07:00 [只看该作者]

StatusBar.Message2 = " || 登录用户: " & _UserName & " || 角色权限: " & _UserGroup & " || 公司名称: " & Tables("注册用户信息表").Current("公司名称") & " || 系统时间: " & Date.now () & " || 服务支持: 电子技术有限公司 || 服务热线: 130000000 "