主题：[求助]如何实现多区域选择

可以了。

Dim hdr As Integer = e.Table.HeaderRows

e.Table.Grid.SetCellStyle(ary(0) + hdr, ary(1)+1, "")
e.Table.Grid.SetCellStyle(ary(0) + hdr, ary(1)+1, s)

还是有问题，我这个项目中，双击列标题会出来一个筛选窗口，用这个筛选窗口筛选过后，就会报这个错误。

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

点击浏览该文件:管理项目2.rar

此主题相关图片如下：111111111.png

If e.newrange.Toprow < 0 Then Return
If vars("stop") = True Then Return
If Vars("dqysxtablename") <> e.Table.Name Then
    Vars("dqysxtablename") = e.Table.Name
    _ps.clear
End If
If ModifierKey <> Keys.Control Then
    For Each p As String In _ps
        Dim ary() As String = p.Split(",")
        If ary(0) >= 0 AndAlso ary(1) >= 0 Then
            e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, "")
        End If
    Next
    _ps.clear
End If
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    For j As Integer = e.NewRange.LeftCol To e.NewRange.RightCol
        Dim p As String = i & "," & j
        If i >= 0 AndAlso j >= 0 AndAlso _ps.contains(p) = False Then
            _ps.add(p)
        End If
    Next
Next
Dim sum As Double = 0
Dim hs As Integer = 0
For Each p As String In _ps
    Dim ary() As String = p.Split(",")
    If ary(0) >= 0 AndAlso ary(1) >= 0 AndAlso e.Table.Rows(ary(0), True).IsGroup = False Then
        Dim s As C1.Win.C1FlexGrid.CellStyle = e.Table.grid.Styles.Add("selected")
        's.backcolor = Color.LightSteelBlue '背景
        s.backcolor = Color.LightBLue
        e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, s)
        'e.Table.DataTable.SysStyles("Focus").BackColor = Color.red
       
        '各种计算
        Dim cval = e.Table(cint(ary(0)), cint(ary(1)))
        sum += val(cval)
        hs = hs + 1
    End If
Next
If hs > 0 Then
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行." & _
    "|            |计数:" & hs & "  |累计:" & sum & "  |平均:" & sum/hs
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行."
End If

这个只是解决了选择两行，三行着色的问题，但我最后的，用我自己的筛选窗口筛选报错的问题，没有解决啊！

我上传的最后一个例子看看吧。用我自己的筛选窗口，这个错误总出现。请协助.

If e.newrange.Toprow < 0 Then Return
If vars("stop") = True Then
    _ps.clear
    Return
End If
If Vars("dqysxtablename") <> e.Table.Name Then
    Vars("dqysxtablename") = e.Table.Name
    _ps.clear
End If
If ModifierKey <> Keys.Control Then
    For Each p As String In _ps
        Dim ary() As String = p.Split(",")
        If ary(0) >= 0 AndAlso ary(1) >= 0 Then
            e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, "")
        End If
    Next
    _ps.clear
End If
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    For j As Integer = e.NewRange.LeftCol To e.NewRange.RightCol
        Dim p As String = i & "," & j
        If i >= 0 AndAlso j >= 0 AndAlso _ps.contains(p) = False Then
            _ps.add(p)
        End If
    Next
Next
Dim sum As Double = 0
Dim hs As Integer = 0
For Each p As String In _ps
    Dim ary() As String = p.Split(",")
    If ary(0) >= 0 AndAlso ary(1) >= 0 AndAlso e.Table.Rows(ary(0), True).IsGroup = False Then
        Dim s As C1.Win.C1FlexGrid.CellStyle = e.Table.grid.Styles.Add("selected")
        's.backcolor = Color.LightSteelBlue '背景
        s.backcolor = Color.LightBLue
        e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, s)
        'e.Table.DataTable.SysStyles("Focus").BackColor = Color.red
       
        '各种计算
        Dim cval = e.Table(cint(ary(0)), cint(ary(1)))
        sum += val(cval)
        hs = hs + 1
    End If
Next
If hs > 0 Then
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行." & _
    "|            |计数:" & hs & "  |累计:" & sum & "  |平均:" & sum/hs
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行."
End If

谢谢，现在没提醒错误了，下发下去试试！

部分配置低的电脑，提示溢出怎么办？

.NET Framework 版本：2.0.50727.8000
Foxtable 版本：2017.5.22.1
错误所在事件：全局表事件,AfterSelRangeChange
详细错误信息：
溢出。

 测试没有问题。试试这样

 

If e.newrange.Toprow < 0 Then Return
If vars("stop") = True Then
    _ps.clear
    Return
End If
If Vars("dqysxtablename") <> e.Table.Name Then
    Vars("dqysxtablename") = e.Table.Name
    _ps = new List(Of String)
    gc.Collect
End If
If ModifierKey <> Keys.Control Then
    For Each p As String In _ps
        Dim ary() As String = p.Split(",")
        If ary(0) >= 0 AndAlso ary(1) >= 0 Then
            e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, "")
        End If
    Next
    _ps = new List(Of String)
    gc.Collect
End If
For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    For j As Integer = e.NewRange.LeftCol To e.NewRange.RightCol
        Dim p As String = i & "," & j
        If i >= 0 AndAlso j >= 0 AndAlso _ps.contains(p) = False Then
            _ps.add(p)
        End If
    Next
Next
Dim sum As Double = 0
Dim hs As Integer = 0
For Each p As String In _ps
    Dim ary() As String = p.Split(",")
    If ary(0) >= 0 AndAlso ary(1) >= 0 AndAlso e.Table.Rows(ary(0), True).IsGroup = False Then
        Dim s As C1.Win.C1FlexGrid.CellStyle = e.Table.grid.Styles.Add("selected")
        's.backcolor = Color.LightSteelBlue '背景
        s.backcolor = Color.LightBLue
        e.Table.Grid.SetCellStyle(ary(0)+e.Table.HeaderRows, ary(1)+1, s)
        'e.Table.DataTable.SysStyles("Focus").BackColor = Color.red
       
        '各种计算
        Dim cval = e.Table(cint(ary(0)), cint(ary(1)))
        sum += val(cval)
        hs = hs + 1
    End If
Next
If hs > 0 Then
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行." & _
    "|            |计数:" & hs & "  |累计:" & sum & "  |平均:" & sum/hs
Else
    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,目前展现" & e.Table.Rows.Count & "行,本表共" & e.Table.DataTable.DataRows.Count & "行."
End If

我试一下，这个溢出，我发现一般是在点选整个表的时候会出现。我先试一下你这个代码。