主题：汇总模式下显示行信息会出错

还有，事件应该用e.table，而不是CurrentTable:

Dim t As Table = e.Table
Dim st As String
If t.Position < 0 Then
    st = ""
Else
    If t.Rows(t.RowSel).IsGroup = False  Then
        st = "序号 :" & t.Rows(t.Rowsel,True)("序") & ", 订单号:" & t.Rows(t.Rowsel,True)("报价")
    Else
        St = "数据汇总行"
    End If
End If
StatusBar.Message1 = st