Ai đó có thể giải thích logic đằng sau việc biến phần còn lại của các trường thành sai trong mã bên dưới (từ bài đăng trên)
Một điều tôi nhận thấy là cả hai phương pháp hàng đầu đều không có bất kỳ khái niệm nào về hàng màu đầu tiên nên có trong một nhóm; nhóm sẽ chỉ bắt đầu với màu đối diện từ dòng cuối cùng của nhóm trước. Tôi muốn các nhóm của mình luôn bắt đầu với cùng một màu ... hàng đầu tiên của mỗi nhóm phải luôn có màu trắng và hàng tiếp theo được tô màu.
Khái niệm cơ bản là đặt lại chuyển đổi khi mỗi nhóm bắt đầu, vì vậy tôi đã thêm một chút mã:
Private bOddRow As Boolean
'*************************************************************************
'-- Display green-bar type color banding in detail rows
'-- Call from BackGroundColor property of all detail row textboxes
'-- Set Toggle True for first item, False for others.
'*************************************************************************
'
Function AlternateColor(ByVal OddColor As String, _
ByVal EvenColor As String, ByVal Toggle As Boolean) As String
If Toggle Then bOddRow = Not bOddRow
If bOddRow Then
Return OddColor
Else
Return EvenColor
End If
End Function
'
Function RestartColor(ByVal OddColor As String) As String
bOddRow = True
Return OddColor
End Function
Vì vậy, bây giờ tôi có ba loại nền tế bào khác nhau:
- Cột đầu tiên của hàng dữ liệu có = Code.AlternateColor ("AliceBlue", "White", True) (Điều này giống như câu trả lời trước.)
- Các cột còn lại của hàng dữ liệu có = Code.AlternateColor ("AliceBlue", "White", false) (Điều này, cũng, giống như câu trả lời trước.)
- Cột đầu tiên của hàng nhóm có = Code.RestartColor ("AliceBlue") (Đây là mới.)
- Các cột còn lại của hàng nhóm có = Code.AlternateColor ("AliceBlue", "White", false) (Điều này đã được sử dụng trước đây, nhưng không đề cập đến nó cho nhóm hàng.)
Điều này làm việc cho tôi. Nếu bạn muốn hàng nhóm không có màu, hoặc một màu khác, thì điều này khá rõ ràng từ cách này để thay đổi nó xung quanh.
Xin vui lòng thêm ý kiến về những gì có thể được thực hiện để cải thiện mã này: Tôi hoàn toàn mới đối với cả SSRS và VB, vì vậy tôi nghi ngờ rằng có nhiều chỗ để cải thiện, nhưng ý tưởng cơ bản có vẻ hợp lý (và nó rất hữu ích cho tôi) vì vậy tôi muốn ném nó ra đây.