Thursday, 5 June 2014

Create table runtime

<%@ Page Language="VB" %>
<script runat="server">
Sub
Button1_Click(sender As Object, e As EventArgs)
Dim numrows As Integer
Dim
numcells As Integer
Dim
i As Integer
Dim
j As Integer
Dim
r As TableRow
Dim c As TableCell
numrows = CInt(DropDown1.SelectedItem.Value)
numcells =
CInt(DropDown2.SelectedItem.Value)
For j = 0 To numrows-1
r =
new TableRow()
For i = 0  To numcells-1
c =
new TableCell()
c.Controls.Add(
new LiteralControl("row " & j & ", cell " & i))
r.Cells.Add(c)
Next i
Table1.Rows.Add(r)
Next j
End Sub
</
script>
<
html>
<
head>
<
title>vbdotnetheaven.Com Article</title>
</
head>
<
body>
<
form id="Form1" runat="server">
Table rows:
<asp:DropDownList id="DropDown1" runat="server">
<
asp:ListItem Value="1">1</asp:ListItem>
<
asp:ListItem Value="2">2</asp:ListItem>
<
asp:ListItem Value="3">3</asp:ListItem>
<
asp:ListItem Value="4">4</asp:ListItem>
</
asp:DropDownList>
Table cells:
<asp:DropDownList id="DropDown2" runat="server">
<
asp:ListItem Value="1">1</asp:ListItem>
<
asp:ListItem Value="2">2</asp:ListItem>
<
asp:ListItem Value="3">3</asp:ListItem>
<
asp:ListItem Value="4">4</asp:ListItem>
</
asp:DropDownList>
<
asp:button id="Button1" onclick="Button1_Click" runat="server" Text="Generate Table"></asp:button>
<
hr>
<
asp:Table id="Table1" runat="server" Gridlines="Both" BorderWidth="1" BorderColor="black" CellSpacing="0" CellPadding="5" Font
Size
="8pt" Font-Names="Verdana"></asp:Table>
</
form>
</
body>
</
html>