第一步：.在打开窗口时增加代码：DataTables(e.Form.name & "_Table1").AddUserStyle("Green", Color.Green,Color.black)
DataTables(e.Form.name & "_Table1").AddUserStyle("Pink", Color.Pink,Color.black)
DataTables(e.Form.name & "_Table1").AddUserStyle("DeepSkyBlue", Color.DeepSkyBlue,Color.black)
DataTables(e.Form.name & "_Table1").AddUserStyle("Red", Color.Red,Color.black)
第二步，在项目表事件中加入以下代码
If e.Table.name = "5.6 项目开发进度汇总_table1" Then
If e.Table.Cols.Contains("阶段") Then
If e.Table.Rows.count > 0 Then
Dim st As String
If e.Col.Name = "阶段" OrElse e.Col.name = "任务名称" Then
Else
st = e.Row(e.Col.name)
If st.Contains("未完成延期") Then
e.Style = "Red"
End If
End If
End If
End If
End If
可是还没有颜色，哪里写错了？
加好友 
发短信
Post By：2018/11/2 9:44:00 [显示全部帖子]
