Intercalando a cor de fundo das linhas de um Relatório de Seção.

1. Sub Detail_Format
3. Dim White, Color, i
5. Color = Me.Field1.BackColor.Name
6. White = System.Drawing.Color.White.Name
8. if Color = "ffffffff" then
9. Color = "White"
10. end if
12. if Color = White then
13. 'Gray
14. for i = 1 to 2
15. rpt.Sections.Item("Detail").Controls.Item("Field" & i).BackColor = System.Drawing.Color.Gray
16. next
17. else
18. 'White
19. for i = 1 to 2
20. rpt.Sections.Item("Detail").Controls.Item("Field" & i).BackColor = System.Drawing.Color.White
21. next
22. end if
24. if Color = "ffffffff" then
25. Color = "White"
26. else
27. Color = "Gray"
28. End If
29. End Sub

Sub Detail_Format
    
  Dim White, Color, i
  
  Color = Me.Field1.BackColor.Name 
  White = System.Drawing.Color.White.Name 
  
  if Color = "ffffffff" then
    Color = "White"
  end if
    
  if Color = White then
    'Gray
    for i = 1 to 2
      rpt.Sections.Item("Detail").Controls.Item("Field" & i).BackColor = System.Drawing.Color.Gray
    next
  else
    'White
    for i = 1 to 2
      rpt.Sections.Item("Detail").Controls.Item("Field" & i).BackColor = System.Drawing.Color.White
    next
  end if
    
  if Color = "ffffffff" then
    Color = "White"
  else 
    Color = "Gray"
  End If
End Sub