此主题相关图片如下：123.png

老师：如果图框部分，第二行与第四行都绘制了颜色，但我想第二行存在颜色时，第四行就不绘制或清除其颜色，要怎么改？

原代码：

  If dt>=dt1 AndAlso dt<=dt2 Then
            \'MessageBox.Show(3)
            e.StartDraw()
            e.Graphics.FillRectangle(Brushes.Blue,e.x ,e.y+1, e.Width, e.Height-2)
            e.EndDraw()
        End If

需要读取第二行、第四行的数据，才能比较和绘制。

Dim r2 As Row = e.Table.Rows(1)

Dim r4 As Row = e.Table.Rows(3)

Dim d2 As Date = r2(xxxx)

Dim d4 As Date = r4(xxxx)

If 比较d2、d4等值的逻辑，才能判断 Then

End If

具体逻辑，请具体说明，上传具体项目测试。