- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 汇总模式下显示行信息会出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41383)
-- 发布时间：2013/10/18 11:17:00
-- 汇总模式下显示行信息会出错
以下是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
此主题相关图片如下：qq截图20131018115908.png[此贴子已经被作者于2013-10-18 12:00:00编辑过]
-- 发布时间：2013/10/18 11:20:00
--
出什么错? 上个例子看看!
-- 发布时间：2013/10/18 14:50:00
--
自己顶
-- 发布时间：2013/10/18 20:29:00
--
要获取group的行，请加true。
If t.Rows(t.RowSel, true).IsGroup = False Then
-- 发布时间：2013/10/18 20:35:00
--
在您的代码前加上这一段：
If CurrentTable.Position = -1 Then
Return
End If
-- 发布时间：2013/10/19 14:37:00
--
还有，事件应该用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