- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 更新版本后打开项目有这个提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137232)
-- 发布时间：2019/7/1 14:51:00
-- 更新版本后打开项目有这个提示
什么情况？
此主题相关图片如下：微信图片_20190701145034.png
-- 发布时间：2019/7/1 15:26:00
--
1、卸载重新foxtable
2、如果还有问题，出错的项目发上来测试
-- 发布时间：2019/7/3 13:52:00
--
找出原因了，不是升级原因造成的，而是
全局代码：Public pscm1 As New List(Of String)
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 String 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 String = i
If i >= 0 AndAlso pscm1.contains(p) = False Then
pscm1.add(p)
End If
Next
For Each p As String 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/3 14:09:00
--
Public pscm1 As New List(Of integer)
For Each p As integer In pscm1