主题：关于状态行显示的奇怪问题

代码如下：问题：现在把最后12行注释后能够在状态行正常显示，但把注释取消就错误，状态行没有任何显示，何解？

产生表_AfterSelChange

 

'''锁定已收款的行/自动显示当前行的序号,地址等信息--与汇总模式的冲突！

'

Dim t As Table = e.Table

Dim st As String

Dim t2 As Table = Tables("覆价汇总")

Dim vbno As String

Dim r As Integer

 

If t.Position < 0 Then

    Return   

Else

    If e.NewRange.RowSel > 0 Then '  t.Rows(t.RowSel).IsGroup = False  Then

        st = "序号 :" &  t.rows(e.NewRange.Rowsel,True)("序") & ", 报告编号:" & t.rows(e.NewRange.Rowsel,True)("报告编号") & ", 地址: " & t.rows(e.NewRange.Rowsel,True)("地址") 

        'vbno = t.Rows(e.NewRange.Rowsel)("初评编号")

        'r = t2.Find(vbno, 0, "初评编号", False, False, True)

    Else

        St = "数据汇总行"

    End If

End If

StatusBar.Message1 = st

 

 

 

'If t2.Position = -1 Then

    'Return

'End If

'

'If  r > 0 Then

    't2.Position = r

    'st = st & " 这份正式报告已有对应的初评," & "初评时间是: " & t2.Current("接单时间")

'Else

    'st = st & " 这份正式报告未有对应的初评"

'End If

'

'StatusBar.Message1 = st