主题：请教状态栏信息显示问题

老师您好，我在项目属性和表属性都设置了在状态栏显示信息的代码，发生冲突了，表属性的代码没起作用，请问有办法同时显示或在表中，表属性的代码优先显示吗

项目属性SystemIdle(在系统空闲的时候执行)事件

With CurrentTable

    Dim Str1 As String = "用户: " & User.Name

    Str1 = Str1 & " 表名: " & .Name & " 总行数: "

    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)

    StatusBar.Message1 = Str1

End With

表属性选择CurrentChanged(选择不同数据行后执行)事件

If e.Table.Current Is Nothing Then '如果Current为Nothing

    StatusBar.Message1 = ""

Else

    Dim Val As Integer = e.Table.Current("还贷天数")

    If Val = 0 Then

        StatusBar.Message1 = "时间已有点迟了， 过还款期了！"

    ElseIf Val = 10 Then

        StatusBar.Message1 = "最后十天，请准备还款。"

    ElseIf Val < 30 Then

        StatusBar.Message1 = "剩余" & Val & "天" & "， 请提示会计该还款了。"

    Else

        StatusBar.Message1 = "剩余" & Val & "天"

    End If

End If