主题：报表自动汇总问题

版主“HotelDatabase”,"酒店数据"table,对应remarks 的textbox ,不能设置滚动条，为什么啊

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

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

版主请看一下，我编写的代码，窗口“agent_1”中“roomblockstatus1”，为什么总出现错误提示

窗口“Agent_1”中的“RoomBlockStatus_1”

如果checkbox"控房状态1"为 true ,则“酒店1”“酒店地区1”都以白底绿字显示

如果checkbox"控房状态1"为false,则“酒店1”和“酒店地区1”都以白底红字显示

 

同理“控房状态2 ”和“控房状态3 ”

 

如果

“optionaldate1"或者"optionaldate2"或者"optionaldate3"其中的日期，《=今天前3天，

则此optionaldate 以红底白字显示，其他显示日期以白底黑字显示

 

如果checkbox "状态”=true 则全行以 白底绿字显示

如果checkbox"状态"=false 则维持以上的DRAWING 不变。

 

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

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

版主可以帮我简化一下，现有代码嘛？我这个写的好长好麻烦。

我的代码还不对，应该是出了今天和今天+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"直接就不显示了。

 

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

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

EN

 

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

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

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

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

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