主题：[求助]状态栏当前表选择区域合计问题怎么解决

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:状态栏当前区域合计.table

 

原帖：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40853&authorid=0&page=0&star=1

 

发现一个问题，就是对数据进行排序后，会出现如下错误，不知道怎么解决或屏蔽错误？

 

---------------------------

版本:2013.10.14.1

---------------------------

错误代码位置：YH_jiancha,AfterSelRangeChange

 

 

System.IndexOutOfRangeException: 索引 -2 不是为负数，就是大于行数。

   在 System.Data.DataView.GetRow(Int32 index)

   在 System.Data.DataView.System.Collections.IList.get_Item(Int32 recordIndex)

   在 Foxtable.OlO1110llO.OOO0OOll(Int32 OO0Ol)

   在 Foxtable.RowCollection.get_Item(Int32 Ol11l)

   在 UserCode.AfterSelRangeChange(CellRangeChangeEventArgs e)

---------------------------

确定  

---------------------------

看一下这个吧 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40831&skin=0

看过，我想实现类似excel表格的效果，还是1楼那个范例合适，就是错误提示比较麻烦，看不懂

 

 

此主题相关图片如下：捕获.jpg

'''
StatusBar.Message1 = ""
Dim s As String
Dim sum As Double
If CurrentTable IsNot Nothing Then
    If e.Table.RowSel < 0 OrElse e.Table.ColSel < 0 Then
        Return
    End If
    For Each c As Col In CurrentTable.Cols
        sum = 0
        If c.IsNumeric Then
            For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
                sum + = CurrentTable.Rows(i)(c.Name)
            Next
            s + = c.Name & "  " & sum & "  "
        End If
    Next
    StatusBar.Message1 =  "当前区域合计：" & "  总行数  " & e.NewRange.BottomRow - e.NewRange.TopRow + 1 & "  " & s
Else
    StatusBar. Reset()
End If

lsy 完美解决啊，太厉害了