1.在打开窗口时增加代码:'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)
2.动态生成报表,绑定报表
Tables(e.Form.name & "_Table1").datasource = DataTables("项目开发进度汇总临时报表")
3.在DataTables(e.Form.name & "_Table1")的表属性内增加代码:
If e.Table.Rows.count > 0 Then
If e.Table.Cols.Contains("阶段") 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