主题：报表自动汇总问题

我的代码还不对，应该是出了今天和今天+3天的日期以外，其余optionaldate中的数据，应该全部都是白底黑字的，请版主帮我看一下怎么修改

 

改成

 

If e.Col.Name = "用房数量" Then
    If e.Row("用房数量") <= 9 Then
        e.Table.DataTable.AddUserStyle("a", Color.white, Color.orange)
        e.Style = "a"
    End If
End If
If e.Col.name = "酒店地区1"OrElse e.Col.name = "酒店1" Then
    If e.Row("控房状态1") = False Then
        e.Table.DataTable.AddUserStyle("b", Color.white, Color.red)
        e.style = "b"
    End If
    If e.Row("控房状态1") = True Then
        e.Table.DataTable.AddUserStyle("f", Color.white, Color.green)
        e.style = "f"
    End If
End If
If e.Col.name = "酒店地区2" OrElse e.Col.name = "酒店2" Then
    If e.Row("控房状态2") = False Then
        e.Table.DataTable.AddUserStyle("c", Color.white, Color.red)
        e.style = "c"
    End If
    If e.Row("控房状态2") = True Then
        e.Table.DataTable.AddUserStyle("g", Color.white, Color.green)
        e.style = "g"
    End If
End If
If e.Col.name = "酒店地区3"OrElse e.Col.name = "酒店3"  Then
    If e.Row("控房状态3") = False Then
        e.Table.DataTable.AddUserStyle("d", Color.white, Color.red)
        e.style = "d"
    End If
    If e.Row("控房状态3") = True Then
        e.Table.DataTable.AddUserStyle("k", Color.white, Color.green)
        e.style = "k"
    End If
End If
If e.Col.Name = "OptionDate1"Then
    If e.Row("OptionDate1") >= Date.Today AndAlso e.Row("OptionDate1") <= Date.Today.AddDays(3) Then
        e.Table.DataTable.AddUserStyle("h", Color.red, Color.white)
        e.style = "h"
    Else
        e.Table.DataTable.AddUserStyle("y", Color.white, Color.black)
        e.style = "y"
    End If
End If
If e.Col.Name = "OptionDate2"Then
    If e.Row("OptionDate2") >= Date.Today AndAlso e.Row("OptionDate2") <= Date.Today.AddDays(3) Then
        e.Table.DataTable.AddUserStyle("h", Color.red, Color.white)
        e.style = "h"
    Else
        e.Table.DataTable.AddUserStyle("y", Color.white, Color.black)
        e.style = "y"
    End If
End If
If e.Col.Name = "OptionDate3"Then
    If e.Row("OptionDate3") >= Date.Today AndAlso e.Row("OptionDate3") <= Date.Today.AddDays(3) Then
        e.Table.DataTable.AddUserStyle("h", Color.red, Color.white)
        e.style = "h"
    Else
        e.Table.DataTable.AddUserStyle("y", Color.white, Color.black)
        e.style = "y"
    End If
End If

 

 

这个也不对，12月3号4号5号的"OPTIONALDATE"直接就不显示了。

你逻辑是什么？请具体说明你的逻辑。

 

你写的逻辑是这个啊【我的代码还不对，应该是出了今天和今天+3天的日期以外，其余optionaldate中的数据，应该全部都是白底黑字的，请版主帮我看一下怎么修改】

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:操团系统.table

EN

 

Agent1-5&FitGroup 窗口中，的RoomBlockStatus table ,只有，agent_1,也就是当时版主帮我改的那一版，正常工作

其他的，RoomBlockStatus  table，全部都不工作，代码都是一样的，不知道什么原因，请版主指导

1、你每个表的drawcell事件都没有写代码啊；

 

2、你希望要显示什么效果？哪个表，哪个数据，要显示什么效果？

table  RoomBlockStatus 全部都写代码了啊，现在显示是代码不正确。

现在只有RoomBlockStatus_1可以正确运行代码，其他的RoomBlockStatus ,全部都不好用。代码都是一样的。

加上非空值的判断

但是，在Agent_1中，RoomBlockStatus_1,代码确实好用，只是Agent_2和其他家中的不好用