pnlControls.Controls.Add(New LiteralControl("<Table>")) For i = 0 To dt.Rows.Count - 1 CtrlType = dt.Rows(i)(1).ToString CtrlName = dt.Rows(i)(2).ToString CtrlText = dt.Rows(i)(3).ToString Select Case CtrlType Case "TextBox" pnlControls.Controls.Add(New LiteralControl("<tr>")) pnlControls.Controls.Add(New LiteralControl("<td>" & CtrlText & "</td>")) Dim box As New TextBox pnlControls.Controls.Add(New LiteralControl("<td>")) pnlControls.Controls.Add(box) box.ID = CtrlName pnlControls.Controls.Add(New LiteralControl("</td>")) pnlControls.Controls.Add(New LiteralControl("</tr>"))
For Each ctrl In pnlControls.Controls End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)