找回密码
 立即注册

QQ登录

只需一步,快速开始

cn2008liulin
初级会员   /  发表于:2020-6-2 12:42  /   查看:3729  /  回复:3
1金币
本帖最后由 cn2008liulin 于 2020-6-2 12:51 编辑

如图,如果两列的单元格都变色,就不能正常变色了,怎么办?

附件: 您需要 登录 才可以下载或查看,没有帐号?立即注册

最佳答案

查看完整内容

修改了你这边C1TrueDBGrid1_FetchCellStyle1方法里的代码,多加一个列判断即可

3 个回复

倒序浏览
最佳答案
最佳答案
Richard.Ma讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2020-6-2 12:42:49
来自 2#
修改了你这边C1TrueDBGrid1_FetchCellStyle1方法里的代码,多加一个列判断即可

  1.     Private Sub C1TrueDBGrid1_FetchCellStyle1(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle
  2.         If e.Col.Equals(1) Then
  3.             If (C1TrueDBGrid1.Columns("销售数量").CellValue(e.Row) < 2) Then
  4.                 Dim fntFont As New Font(e.CellStyle.Font.Name, e.CellStyle.Font.Size, FontStyle.Bold)
  5.                 e.CellStyle.Font = fntFont
  6.                 e.CellStyle.BackColor = System.Drawing.Color.Red
  7.             Else
  8.                 e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
  9.             End If
  10.         End If
  11.         If e.Col.Equals(2) Then
  12.             If (C1TrueDBGrid1.Columns("销售金额").CellValue(e.Row) < 100) Then
  13.                 Dim fntFont As New Font(e.CellStyle.Font.Name, e.CellStyle.Font.Size, FontStyle.Bold)
  14.                 e.CellStyle.Font = fntFont
  15.                 e.CellStyle.BackColor = System.Drawing.Color.Red
  16.             Else
  17.                 e.CellStyle.BackColor = System.Drawing.Color.YellowGreen
  18.             End If
  19.         End If

  20.     End Sub
复制代码

评分

参与人数 1满意度 +5 收起 理由
cn2008liulin + 5 很给力!

查看全部评分

回复 使用道具 举报
cn2008liulin
初级会员   /  发表于:2020-6-3 00:09:23
3#
Richard.Ma 发表于 2020-6-2 14:51
修改了你这边C1TrueDBGrid1_FetchCellStyle1方法里的代码,多加一个列判断即可

非常感谢!!
回复 使用道具 举报
Richard.Ma讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2020-6-3 09:11:45
4#
不客气
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部