最后一列只能在报表的 ReportEnd事件中来进行代码绘制,基本方法如下:
- Private Sub SectionReport1_ReportEnd(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportEnd
- Dim dt As System.Data.DataTable
- dt = DirectCast(DataSource, System.Data.DataTable)
- For index = 0 To (dt.Rows.Count / 2)
- Me.Document.Pages(0).DrawRect(6.5, 0.58 + 0.2 * index, 1, 0.2)
- Next
- End Sub
复制代码
|