以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于在状态栏显示动态信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110038)
--  作者：洮沙
--  发布时间：2017/11/24 21:18:00
--  [求助]关于在状态栏显示动态信息

根据帮助文档，在全局表事件CurrentChanged中编写以下代码，但是不执行，请老师帮忙看看，哪里出错了？谢谢！

Select Case e.Table.Name
    Case "客户"
        Dim kh As String = e.Table.Current("客户名称")
        if kh = ""  then   
                StatusBar.Message3 = "就绪"
        Else
                StatusBar.Message3 = "正在处理:" & kh & "业务"
        End if
    Case "主合同"
        Dim kh As String = e.Table.Current("客户名称")
        if kh = ""   then  
                StatusBar.Message3 = "就绪"
        Else
                StatusBar.Message3 = "正在处理:" & kh & "业务"
        End if
    Case "日常业务"
        Dim kh As String = e.Table.Current("客户名称")
        if kh = ""  then   
                StatusBar.Message3 = "就绪"
        Else
                StatusBar.Message3 = "正在处理:" & kh & "业务"
        End if
    Case Else
        StatusBar.Message3 = "就绪"
End Select

[此贴子已经被作者于2017/11/24 21:19:31编辑过]
--  作者：有点蓝
--  发布时间：2017/11/24 21:29:00
--  
系统菜单默认会使用StatusBar.Message3显示统计值，有冲突

改为用StatusBar.Message1或者StatusBar.Message2
--  作者：洮沙
--  发布时间：2017/11/24 21:43:00
--  回复：（有点蓝）系统菜单默认会使用StatusBar.Messag...

知道了，蓝老师，谢谢！

 

经测试，StatusBar.Message2可以显示选择行的信息，但是，有关联表的窗口不显示，单独表的窗口显示正常，无解，困惑？！（已解决，代码修改为）：

 

Select Case CurrentTable.Name
    Case "客户"
        Dim kh As String = Tables("客户").Current("客户名称")
        If Tables("客户").Current Is Nothing Then
            StatusBar.Message2= "  ||  就绪"
        Else
            StatusBar.Message2 = "  ||  正在处理:" & kh & "(业务)"
        End If
    Case "主合同"
        Dim kh As String = Tables("主合同").Current("客户名称")
        If Tables("主合同").Current Is Nothing Then
            StatusBar.Message2 = "  ||  就绪"
        Else
            StatusBar.Message2= "  ||  正在处理:" & kh & "(业务)"
        End If
    Case "日常业务"
        Dim kh As String = Tables("日常业务").Current("客户名称")
        If Tables("日常业务").Current Is Nothing Then
            StatusBar.Message2 = "  ||  就绪"
        Else
            StatusBar.Message2 = "  ||  正在处理:" & kh & "(业务)"
        End If
    Case Else
        StatusBar.Message2 = "  ||  就绪"
End Select

 

 

 

麻烦再问一下StatusBar.Message2 能否靠右对齐？能否设置不同颜色？

 

[此贴子已经被作者于2017/11/24 22:18:10编辑过]
--  作者：有点蓝
--  发布时间：2017/11/24 22:12:00
--  
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message1").ForeColorOuter=Color.red

右对齐只能是在前面增加N个空格顶过去
--  作者：洮沙
--  发布时间：2017/11/24 22:20:00
--  回复：（有点蓝）Dim SB As C1.Win.C1Ribbon.C1Status...
谢谢，蓝老师，早点休息！