以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  什么原因  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137461)
--  作者：yetle
--  发布时间：2019/7/6 16:07:00
--  什么原因
错误提示：
.NET Framework 版本：4.0.30319.1022
Foxtable 版本：2019.6.18.1
错误所在事件：配色表,AfterSelRangeChange
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index 

操作代码是这样的：
If usna  Like "*设计*" Or usna="admin"  Then
    If Tables("配色表").Current("审核") = False Then
        If Tables("配色表").TopPosition>-1 Then
            \'For  i As Integer=Tables("配色表").BottomPosition To Tables("配色表").TopPosition Step -1
            For Each p As Integer In pscm1
                Tables("配色表").Rows(p).Delete()
            Next
        End If
        
    End If
End If


AfterSelRangeChange代码是这样的：
If Tables("配色表").RowSel < 0 OrElse Tables("配色表").ColSel < 0 Then
        e.cancel=True
    End If

If vars("stop") = True Then Return

If ModifierKey <> Keys.Control Then

    For Each p As Integer  In pscm1
        If p >= 0 Then
            For i As Integer = 1 To e.Table.Cols.count
                e.Table.Grid.SetCellStyle(p+1, i, "")
            Next
        End If
    Next
    pscm1.clear
End If

For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    Dim p As Integer  = i
    If i >= 0 AndAlso  pscm1.contains(p) = False Then

        pscm1.add(p)
    End If
Next

For Each p As Integer  In pscm1
    
    If p >= 0  Then

        Dim s As C1.Win.C1FlexGrid.CellStyle = e.Table.grid.Styles.Add("selected")
        s.backcolor = Color.red \'背景
        For i As Integer = 1 To e.Table.Cols.count
            e.Table.Grid.SetCellStyle(p+1, i, s)
        Next
        
        e.Table.DataTable.SysStyles("Focus").BackColor = Color.red
        
    End If
Next
--  作者：有点蓝
--  发布时间：2019/7/6 16:31:00
--  
要做什么功能？pscm1是全局变量？下面代码每删除一行，就可能会触发一次AfterSelRangeChange，删除10行就触发10次，AfterSelRangeChange里面也用到了pscm1，可能会导致行索引不一致

For Each p As Integer In pscm1
    Tables("配色表").Rows(p).Delete()
Next
--  作者：yetle
--  发布时间：2019/7/6 22:47:00
--  
功能是选中的行会变成红色，在这里我是将选中的行删除
我用的另外一种方式的这个代码会报错
If usna  Like "*设计*" Or usna="admin"  Then
    If Tables("配色表").Current("审核") = False Then
        If Tables("配色表").TopPosition>-1 Then
            For  i As Integer=Tables("配色表").BottomPosition To Tables("配色表").TopPosition Step -1
                Tables("配色表").Rows(i).Delete()
            Next
        End If        
    End If
End If

报错代码：
.NET Framework 版本：4.0.30319.1
Foxtable 版本：2019.6.18.1
错误所在事件：配色表,AfterSelRangeChange
详细错误信息：
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index
--  作者：狐狸爸爸
--  发布时间：2019/7/7 8:50:00
--  
提示：绝对不应该在AfterSelRangeChange有删除行的代码
--  作者：有点蓝
--  发布时间：2019/7/7 20:28:00
--  
上传实例看看吧
--  作者：yetle
--  发布时间：2019/7/8 9:15:00
--  
删除代码没在AfterSelRangeChange中，是在窗口按钮中
--  作者：有点蓝
--  发布时间：2019/7/8 9:37:00
--  
原因在二楼说过了，搞不定就上传实例