I've figured out how to create the controls in the format I want, but now I am confused as to how create more than one set of them. I set everything to new and increment the names of each control, but it's only updating the one set. Here is my code:
intPnlCounter += CInt(ViewState("intPgCount"))
'Table
'PlaceHolder1.Controls.Add(New LiteralControl(" <table style=""height: 27px""><tr><td colspan=""2""> </td><td colspan=""2"">"))
PlaceHolder1.Controls.Add(New LiteralControl("<table style=""height: 27px"">"))
'Component Header
Dim lblHeader As Label = New Label
lblHeader.Text = "Additional Component Item: " & intPnlCounter
lblHeader.ID = "lblHeader" & intPnlCounter
lblHeader.Font.Bold = True
lblHeader.Font.Underline = True
lblHeader.Font.Name = "Trebuchet MS"
PlaceHolder1.Controls.Add(lblHeader)
PlaceHolder1.Controls.Add(New LiteralControl("<tr><td colspan=""2""> </td><td colspan=""2"">"))
'Item Label
Dim lblItem As Label = New Label
lblItem.Text = "Item:"
lblItem.ID = "lblItem" & intPnlCounter
lblItem.Font.Bold = True
lblItem.Font.Underline = True
lblItem.Font.Name = "Trebuchet MS"
'lblItem.Font.Size = Unit.Percentage(10)
PlaceHolder1.Controls.Add(lblItem)
PlaceHolder1.Controls.Add(New LiteralControl(" "))
'Item Textbox
Dim txtItem As TextBox = New TextBox
txtItem.ID = "txtItem" & intPnlCounter
txtItem.Width = Unit.Pixel(306)
PlaceHolder1.Controls.Add(txtItem)
PlaceHolder1.Controls.Add(New LiteralControl("</td><td> </td></tr><tr><td class=""style11"">"))
'NSN Label
Dim lblNSN As Label = New Label
lblNSN.Text = "NSN:"
lblNSN.ID = "lblNSN" & intPnlCounter
lblNSN.Font.Bold = True
lblNSN.Font.Underline = True
lblNSN.Font.Name = "Trebuchet MS"
lblNSN.Font.Size = 10
PlaceHolder1.Controls.Add(lblNSN)
PlaceHolder1.Controls.Add(New LiteralControl(" "))
'NSN Textbox
Dim txtNSN As TextBox = New TextBox
txtNSN.ID = "txtNSN" & intPnlCounter
PlaceHolder1.Controls.Add(txtNSN)
PlaceHolder1.Controls.Add(New LiteralControl("</td><td class=""style12"">"))
'PartNum Label
Dim lblPartNum As Label = New Label
lblPartNum.Text = "Part Number:"
lblPartNum.ID = "lblPartNum" & intPnlCounter
lblPartNum.Font.Bold = True
lblPartNum.Font.Underline = True
lblPartNum.Font.Name = "Trebuchet MS"
lblPartNum.Font.Size = 10
PlaceHolder1.Controls.Add(lblPartNum)
PlaceHolder1.Controls.Add(New LiteralControl(" "))
'PartNum Textbox
Dim txtPartNum As TextBox = New TextBox
txtPartNum.ID = "txtPartNum" & intPnlCounter
PlaceHolder1.Controls.Add(txtPartNum)
PlaceHolder1.Controls.Add(New LiteralControl("</td><td colspan=""2"">"))
'SerialNum Label
Dim lblSerialNum As Label = New Label
lblSerialNum.Text = "Serial Number:"
lblSerialNum.ID = "lblSerialNum" & intPnlCounter
lblSerialNum.Font.Bold = True
lblSerialNum.Font.Underline = True
lblSerialNum.Font.Name = "Trebuchet MS"
lblSerialNum.Font.Size = 10
PlaceHolder1.Controls.Add(lblSerialNum)
PlaceHolder1.Controls.Add(New LiteralControl(" "))
'SerialNum Textbox
Dim txtSerialNum As TextBox = New TextBox
txtSerialNum.ID = "txtSerialNum" & intPnlCounter
PlaceHolder1.Controls.Add(txtSerialNum)
PlaceHolder1.Controls.Add(New LiteralControl("</td><td>"))
'Hours Label
Dim lblHours As Label = New Label
lblHours.Text = "Hours:"
lblHours.ID = "lblHours" & intPnlCounter
lblHours.Font.Bold = True
lblHours.Font.Underline = True
lblHours.Font.Name = "Trebuchet MS"
lblHours.Font.Size = 10
PlaceHolder1.Controls.Add(lblHours)
PlaceHolder1.Controls.Add(New LiteralControl(" "))
'Hours Textbox
Dim txtHours
View Complete Post