c1truedbgrid在fetchcellstyle中无法显示选择的数据范围，无法显示背景颜色

登录

本帖最后由 cn2008liulin 于 2020-6-3 11:22 编辑

，c1truedbgrid在fetchcellstyle中无法显示选择的数据范围，无法显示背景颜色

Richard.Ma · Richard.Ma

本帖最后由 Richard.Ma 于 2020-6-3 12:31 编辑

问题已经收到，这个原因是选中时，truedbgrid仍然会触发FetchCellStyle事件来渲染，造成样式还是这样，
可以判断这个单元格选中时不执行里面的样式设置代码，但是这样可能还会有其他的问题，我需要先验证一下然后给你回复

Richard.Ma · Richard.Ma

在上述代码的基础上，先在里面判断是否选中

Dim colindex, rowindex As Int16
colindex = C1TrueDBGrid1.SelectedCols.IndexOf(e.Column.DataColumn)
rowindex = C1TrueDBGrid1.SelectedRows.IndexOf(e.Row)
If colindex > -1 And rowindex > -1 Then
Return
End If

复制代码

然后再执行后续逻辑即可，完整代码如下

Private Sub C1TrueDBGrid1_FetchCellStyle1(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle
Dim colindex, rowindex As Int16
colindex = C1TrueDBGrid1.SelectedCols.IndexOf(e.Column.DataColumn)
rowindex = C1TrueDBGrid1.SelectedRows.IndexOf(e.Row)
If colindex > -1 And rowindex > -1 Then
Return
End If
If e.Col.Equals(1) Then
If (C1TrueDBGrid1.Columns("销售数量").CellValue(e.Row) < 2) Then
Dim fntFont As New Font(e.CellStyle.Font.Name, e.CellStyle.Font.Size, FontStyle.Bold)
e.CellStyle.Font = fntFont
e.CellStyle.BackColor = System.Drawing.Color.Red
Else
e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
End If
End If
If e.Col.Equals(2) Then
If (C1TrueDBGrid1.Columns("销售金额").CellValue(e.Row) < 100) Then
Dim fntFont As New Font(e.CellStyle.Font.Name, e.CellStyle.Font.Size, FontStyle.Bold)
e.CellStyle.Font = fntFont
e.CellStyle.BackColor = System.Drawing.Color.Red
Else
e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
End If
End If
End Sub

复制代码

cn2008liulin · cn2008liulin

非常好，点赞！

Richard.Ma · Richard.Ma

嗯，不客气

		自动登录	找回密码
密码			立即注册

[已处理] c1truedbgrid在fetchcellstyle中无法显示选择的数据范围，无法显示背景颜色

本帖子中包含更多资源

4 个回复

评分

浏览过的版块

活字格认证

SpreadJS 认证

SpreadJS 高级认证

讲师达人

悬赏达人