以下是afterselchange里的代码,原意是切换行时能实时显示当前行的信息,但是在汇总模式切换下总是出错,求指教:
Dim t As Table = CurrentTable
Dim st As String
'Dim cn As Integer = e.Table.Current.Index 'cn = col number
If t.Rows(t.RowSel).IsGroup = False Then
'If cn > -1 Then
st = "序号 :" & e.Table.Rows(e.Table.Rowsel,True)("序") & ", 订单号:" & e.Table.Rows(e.Table.Rowsel,True)("报价")
Else
St = "数据汇总行"
End If
StatusBar.Message1 = st
错误提示截图:
此主题相关图片如下:qq截图20131018115908.png
[此贴子已经被作者于2013-10-18 12:00:00编辑过]