Table Row and Column Count (VB.net)

<%@ Page Language=VB Debug=true %>
<script runat=server>
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
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Table Sample Page</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Font Face="Tahoma" Size="+1">
<a 
    id="Anchor1"
    OnServerClick="Anchor1_Click" 
    runat=server
>Click for Row Count
</a>
<BR><BR>
<Table
    id="Table1"
    runat=server
>
    <TR
        id="Row11"
        runat=server
    >
        <TD id="Cell111" runat=Server>Cell 1</TD>
        <TD id="Cell112" runat=Server BGColor="Pink">Cell 2</TD>
        <TD id="Cell113" runat=Server>Cell 3</TD>
    </TR>
    <TR
        id="Row12"
        runat=server
    >
        <TD id="Cell121" runat=Server>The second row</TD>
        <TD id="Cell122" runat=Server Disabled=True>
            Disabled Cell
        </TD>
        <TD id="Cell123" runat=Server>Cell 3</TD>
        <TD id="Cell124" runat=Server Visible=False>
            Should not see this cell
        </TD>
    </TR>
    <TR
        id="Row13"
        runat=server
    >
        <TD id="Cell131" runat=Server ColSpan=3>
            The text of a long cell that spans all three columns.
        </TD>
    </TR>
</Table>


<BR><BR><BR><BR><BR>
<Table
    id="Table2"
    runat=server
>
</Table>
</Font>
</Form>
</BODY>
</HTML>

Related examples in the same category

1.	HTML Table Control (VB.net)
2.	HTML Table: add row (VB.net)
3.	HTML Table: change background (VB.net)
4.	HTML Table: change border (VB.net)
5.	HTML Table: change cell padding (VB.net)
6.	Hide a table (VB.net)

Table Row and Column Count (VB.net) : Table « HTML Control « ASP.Net

Related examples in the same category