If vars("stop") = True Then Return
If ModifierKey <> Keys.Control Then
For Each p As String In ps
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
ps.clear
End If
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
Dim p As String = i
If i >= 0 AndAlso ps.contains(p) = False Then
ps.add(p)
End If
Next
For Each p As String In ps
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
.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2018.10.9.1
错误所在事件:
详细错误信息:
在 Range 对象中,Min (48)必须小于或等于 max (-1)。