<%@ Page Language=VB Debug=true %> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) Dim MyRow as new HTMLTableRow Dim MyCell as new HTMLTableCell Dim i as Integer Dim j as Integer Table1.BGColor="Ivory" Table1.Border=2 Table1.BorderColor="LawnGreen" Table1.CellPadding=4 Table1.CellSpacing=3 Table1.Align="Center" MyCell.InnerText = "Column 1" MyRow.Cells.Add(MyCell) MyCell = New HTMLTableCell MyCell.InnerText = "Column 2" MyRow.Cells.Add(MyCell) Table1.Rows.Add(MyRow) For i = 2 to 6 MyRow = New HTMLTableRow For j = 1 to 2 MyCell = New HTMLTableCell MyCell.InnerText = "Cell " & i & ", " & j MyRow.Cells.Add(MyCell) Next Table1.Rows.Add(MyRow) Next End Sub
Adding Rows and Cells to an HTMLTable Control through Code