Testtable seite generiert

Customers/Default.aspx

@@ -38,6 +38,14 @@ Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit ame
 <p>
 Nam pretium turpis et arcu. Duis arcu tortor, suscipit eget, imperdiet nec, imperdiet iaculis, ipsum. Sed aliquam ultrices mauris. Integer ante arcu, accumsan a, consectetuer eget, posuere ut, mauris. Praesent adipiscing. Phasellus ullamcorper ipsum rutrum nunc. Nunc nonummy metus. Vestibulum volutpat pretium libero. Cras id dui. Aenean ut eros et nisl sagittis vestibulum. Nullam nulla eros, ultricies sit amet, nonummy id, imperdiet feugiat, pede. Sed lectus. Donec mollis hendrerit risus. Phasellus nec sem in justo pellentesque facilisis. Etiam imperdiet imperdiet orci. Nunc nec neque. Phasellus leo dolor, tempus non, auctor et, hendrerit quis, nisi. Curabitur ligula sapien, tincidunt non, euismod vitae, posuere imperdiet, leo. Maecenas malesuada. Praesent congue erat at massa. Sed cursus turpis vitae tortor. Donec posuere vulputate arcu. Phasellus accumsan cursus velit. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Sed aliquam, nisi quis porttitor congue, elit erat euismod orci, ac
     </p>
+         <p>
+             <asp:Table ID="tbl_main" runat="server">
+                 <asp:TableHeaderRow><asp:TableHeaderCell>ID</asp:TableHeaderCell><asp:TableHeaderCell>Name</asp:TableHeaderCell></asp:TableHeaderRow>
+             </asp:Table>
+         </p>
+         <p>
+             <asp:Button ID="Btn_btn" ClientIDMode="AutoID" runat="server" OnClick="Btn_btn_Click"/>
+         </p>
     </ContentTemplate></asp:UpdatePanel>
 </asp:Content>
 

Customers/Default.aspx.vb

@@ -22,4 +22,18 @@ Partial Class Customers_Default
         End If
     End Sub
 
+
+    Protected Sub Btn_btn_Click(sender As Object, e As EventArgs)
+        Dim tbl_id As TableCell = New TableCell
+        Dim tbl_name As TableCell = New TableCell
+        tbl_id.Text = 1
+        tbl_name.Text = "Pater Hans"
+        Dim tr As TableRow = New TableRow
+
+        tr.Cells.Add(tbl_id)
+        tr.Cells.Add(tbl_name)
+
+        tbl_main.Rows.Add(tr)
+
+    End Sub
 End Class