主题：[求助]关于在状态栏显示动态信息

根据帮助文档，在全局表事件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

知道了，蓝老师，谢谢！

经测试，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 能否靠右对齐？能否设置不同颜色？