Создать Xtrareport

Question

Я хочу создать динамическую таблицу в Xtrareport в правильном формате.

Поэтому я использую этот код

   dynamicTable.Borders = DevExpress.XtraPrinting.BorderSide.All

        dynamicTable.BorderWidth = 1

Но это не дает должного выхода, как я желаю..

Он генерирует таблицу, разделяя каждую строку ячейки на строку, поэтому не создает вид таблицы.

Полный код:

 Dim label As New XRLabel()
    label.Width = 500
    label.Font = New System.Drawing.Font("Verdana", 10.0F, FontStyle.Bold)
    PageHeader1.Controls.Add(label)

    If rowsCount > 0 Then
        Dim padding As Integer = 5
        Dim tableWidth As Integer = Me.PageWidth - Me.Margins.Left - Me.Margins.Right - padding * 2

        Dim dynamicTable As XRTable = XRTable.CreateTable(New Rectangle(padding, 1, tableWidth, 40), 1, 0) ' table column count

        dynamicTable.Width = tableWidth
        dynamicTable.Rows.FirstRow.Width = tableWidth
        dynamicTable.Borders = DevExpress.XtraPrinting.BorderSide.All
        'dynamicTable.Borders = DirectCast(((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Top) Or DevExpress.XtraPrinting.BorderSide.Right) Or DevExpress.XtraPrinting.BorderSide.Bottom, DevExpress.XtraPrinting.BorderSide)
        dynamicTable.BorderWidth = 1
        Dim i As Integer = 0
        dynamicTable.BeginInit()
        For Each dc As DataColumn In ds.Tables(0).Columns

            Dim cell As New XRTableCell()

            Dim binding As New XRBinding("Text", ds, ds.Tables(0).Columns(i).ColumnName)
            cell.DataBindings.Add(binding)
            cell.CanGrow = False
            cell.CanShrink = True
            cell.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter
            'cell.WidthF = 10 
            'cell.Width = 20
            cell.Text = dc.ColumnName
            dynamicTable.Rows.FirstRow.Cells.Add(cell)



            i += 1

        Next dc


        dynamicTable.Font = New System.Drawing.Font("Verdana", 8.0F)
        dynamicTable.AdjustSize()
        dynamicTable.EndInit()
        Detail.Controls.Add(dynamicTable)
        'label.Text = String.Format("Data table: {0}", Test)

        Me.DataSource = ds
        Me.DataMember = Test