打错字了.添加的 代码 改变字体颜色If e.Col.Name = "xmmc" Then
If e.Row("关联单") <>"" Then
Select e.Row("关联单")
'e.Graphics.DrawString("∞",New Font("微软雅黑",12,FontStyle.Bold),Brushes.Red,e.x + e.Width - 20,e.y + 5)
Case "超出","剩余","失败"
e.Style = "关联单"
Case "已清算"
If e.Row("jszt") =True Then
e.Style = "已清算"
Else
e.Style = "关联单"
End If
End Select
End If
If e.Row("项目状态") = "废弃" Then
e.Style = "废弃"
End If
End If
If e.Col.Name = "项目状态" Then
If e.Row("ProcessInstanceId") <>"" Then
If e.Row("ProcessInstanceId") <> "拒绝" Then
e.Style="到期提醒"
Else
e.Style="延期提醒"
End If
End If
End If
[此贴子已经被作者于2020/4/9 12:08:13编辑过]
加好友 
发短信
Post By：2020/4/9 11:57:00 [显示全部帖子]
此主题相关图片如下：2.jpg
