主题：[求助]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