Testtable seite generiert

This commit is contained in:
ja
2021-11-29 10:06:05 +01:00
parent e071af2815
commit a6b5b576ee
2 changed files with 22 additions and 0 deletions

View File

@@ -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