Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Me.SqlSelectCommand1.CommandText = "SELECT COUNT(*) AS [count], MONTH(dbo.main.dataout) AS month, CONVERT (varchar(255), dbo.type2.type2) AS typetext FROM dbo.main INNER JOIN dbo.type2 ON dbo.main.type2 = dbo.type2.[index] WHERE (dbo.main.status = 2 and dbo.main.type1=2) GROUP BY dbo.main.type2, MONTH(dbo.main.dataout), CONVERT (varchar(255), dbo.type2.type2) order by main.type2"
        SDAcartreport.Fill(DScartreport1)

        Dim a(,) As String
        Dim numrows, i, j, month, count As Integer
        Dim numcells As Integer =  13 
        Dim model, modellast As String
        numrows = DScartreport1._Table.Count
        j =  0 
        ReDim a( 13 ,  1 )
        a( 0 ,  0 ) = "модель"
        a( 1 ,  0 ) = "январь"
        a( 2 ,  0 ) = "февраль"
        a( 3 ,  0 ) = "март"
        a( 4 ,  0 ) = "апрель"
        a( 5 ,  0 ) = "май"
        a( 6 ,  0 ) = "июнь"
        a( 7 ,  0 ) = "июль"
        a( 8 ,  0 ) = "август"
        a( 9 ,  0 ) = "сентябрь"
        a( 10 ,  0 ) = "октябрь"
        a( 11 ,  0 ) = "ноябрь"
        a( 12 ,  0 ) = "декабрь"

        For i =  0  To numrows -  1 
            If DScartreport1._Table.Item(i).typetext.ToString() <> modellast Then
                model = DScartreport1._Table.Item(i).typetext.ToString()
                j = j +  1 
                ReDim Preserve a( 13 , j +  1 )
                a( 0 , j) = model
            End If
            count = DScartreport1._Table.Item(i).count.ToString()
            month = DScartreport1._Table.Item(i).month.ToString()
            a(month, j) = count
            modellast = model

        Next
        numrows = j

        For j =  0  To numrows
            Dim r As New TableRow

            For i =  0  To  12 
                Dim c As New TableCell
                c.Controls.Add(New LiteralControl(a(i, j)))
                r.Cells.Add(c)
            Next i

            Table1.Rows.Add(r)
        Next j

        
    End Sub

   модель|январь|февраль|март|апрель|май|июнь|июль|август|сентябрь|октябрь|ноябрь|декабрь
HP DJ- 540                   1       1       1 

      Next i
    Table1.Rows.Add(r)
  Next j