Dim I, J As Integer Dim DT as DataTable 'Contains atleast 10 Rows of Data Dim RG As New TableRowGroup For J = 0 To DT.Rows.Count - 1 CRow = RG.Rows(J) CRow.FontSize = 12 For I = 1 To 3 CRow.Cells.Add(New TableCell(New Paragraph(New Run(DT.Rows(J).Item(I).ToString)))) CRow.Cells.Add(New TableCell(New Paragraph(New Run(DT.Rows(J).Item(I).ToString)))) CRow.Cells.Add(New TableCell(New Paragraph(New Run(DT.Rows(J).Item(I).ToString)))) Next Next myTable.RowGroups.Add(RG)
CRow = RG.Rows(J)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)