<%@ 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
Table2.BGColor="Ivory"
Table2.Border=2
Table2.BorderColor="LawnGreen"
Table2.CellPadding=4
Table2.CellSpacing=3
Table2.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table2.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
Table2.Rows.Add(MyRow)
Next
End Sub
Sub Anchor1_Click(Source As Object, E as EventArgs)
Anchor1.InnerHtml = "Table 1: " & Table1.Rows.Count _
& " rows - Table 2: " & Table2.Rows.Count & " rows"
End Sub
Table Sample Page
OnServerClick="Anchor1_Click"
runat=server
>Click for Row Count
runat=server
>
runat=server
>
Cell 1
Cell 2
Cell 3
runat=server
>
The second row
Disabled Cell
Cell 3
Should not see this cell
runat=server
>
The text of a long cell that spans all three columns.
runat=server
>