- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Message3不显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178883)
-- 发布时间：2022/7/26 9:11:00
-- [求助]Message3不显示
老师计划到客户表
CurrentChanged
事件添加状态栏Message3动态显示代码，用以下测试代码，命令窗口能够执行，放在表事件，切换行不执行，不知什么原因？
麻烦给予帮助，谢谢！
Dim bh As String = "KH-0001"
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
Dim ye As Decimal
ye = DataTables("订单").SQLCompute("Sum(应收余额)", "客户编号 = \'" & bh & "\'")
If ye > 0 Then
SB.rightPaneItems("Message3").ForeColorOuter = Color.red
StatusBar.Message3 = "【" & bh & "】欠款总额:" & Format(ye, "#,##0.00")
Else
SB.rightPaneItems("Message3").ForeColorOuter = Color.Blue
StatusBar.Message3 = "无欠款"
End If
-- 发布时间：2022/7/26 9:41:00
--
系统有个自动计算的功能：http://www.foxtable.com/webhelp/topics/0176.htm，停掉即可
-- 发布时间：2022/7/26 10:09:00
--
老师，从菜单关闭后，重启系统后有开启了，有代码可以关闭吗？
-- 发布时间：2022/7/26 11:04:00
--
这个没有办法，我反馈一下。
临时解决方法只能是导入系统菜单，然后改改主菜单AfterSelRangeChange事件里的用法，添加一个判断
此主题相关图片如下：1.png
然后AfterOpenProject
Vars("SysUpdateAggregate") = False
[此贴子已经被作者于2022/7/26 11:04:53编辑过]
-- 发布时间：2022/7/26 11:44:00
--
蓝版，经测试，可以使用，但修改表事件后失效，重启项目正常。
[此贴子已经被作者于2022/7/26 12:04:36编辑过]