Testtable seite generiert

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