dynamiske rækker

dim objTable as new table
dim objRow as new tablerow
dim objCell as new tableCell
dim i as byte

for i = 0 to 5
objCell = new tablecell
objCell.text = "Cellens text"
objRow.cells.add(objCell)
objTable.rows.add(objRow)
next


'skulle vist virke

'Virker i hvertfald

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
        Dim objTable As New Table()
        Dim objRow As New TableRow()
        Dim objCell As New TableCell()
        Dim i As Byte

        For i = 0 To 5
            objRow = New TableRow()
            objCell = New TableCell()
            objCell.Text = "Cellens text"
            objRow.Cells.Add(objCell)
            objTable.Rows.Add(objRow)
        Next
        Me.Controls.Add(objTable)
    End Sub