From a6b5b576ee285948fbccaa9b27ed1370c399484f Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 29 Nov 2021 10:06:05 +0100 Subject: [PATCH] Testtable seite generiert --- Customers/Default.aspx | 8 ++++++++ Customers/Default.aspx.vb | 14 ++++++++++++++ 2 files changed, 22 insertions(+) diff --git a/Customers/Default.aspx b/Customers/Default.aspx index a469810..6db6a25 100644 --- a/Customers/Default.aspx +++ b/Customers/Default.aspx @@ -38,6 +38,14 @@ Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit ame

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

+

+ + IDName + +

+

+ +

diff --git a/Customers/Default.aspx.vb b/Customers/Default.aspx.vb index 642ca19..35e5e9e 100644 --- a/Customers/Default.aspx.vb +++ b/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