Ken,
Your code to add a variable number of controls to a page does work.
The part that loops through the controls also works.
However, when I combine your code with my page, it does not work. I
have my controls in a dynamically created table. I need the table,
because I will have several columns of controls. But several things go
wrong. First of all, when I click on Submit, all my textboxes
disappear. The page doesn't maintain them. Secondly, if I try and do
a "for each" loop through the controls, I get no values. (No textboxes
are found in the form). Thirdly, if I try to find a textbox control
like this:
txtbx = place_holder.Fi ndControl("Text Box2")
That also fails. This last method would be useful, because I need
every row of listboxes together, so I can insert them in a row in a
database table.
Anyway, if you are interested in pursuing this, my asp page with all
its code is below, its fairly simple, but it does not work.
BD
<%@Page Language="VB" debug="true" %>
<html>
<head>
<title>Enter Number of Rooms for each day</title>
</head>
<script language="VB" runat="server">
Sub Page_Load(Sourc e As Object, E As EventArgs)
dim tRow as TableRow
dim tCell as TableCell
Dim Index as integer
dim NumDays as integer
dim roomTextBox as TextBox
dim Table2 as Table
If Not Page.IsPostBack Then
''''''''''''''' ''''''''''''''' '
Table2 = new Table
Table2.BorderWi dth = System.Web.UI.W ebControls.Unit .Pixel(1)
tRow = new TableRow()
tCell = new TableCell()
tCell.Text = "<b>Textbox es</b>"
tRow.Cells.Add( tCell)
Table2.Rows.Add (tRow)
''''''''''''''' ''''''''''''''' '''
NumDays = 3 ' in reality this would be variable
For Index = 0 to NumDays
tRow = new TableRow()
''''''''''''''' '''''''''''''
roomTextBox = new TextBox()
roomTextBox.ID = "TextBox" & index
roomTextBox.Tex t = ""
roomTextBox.Col umns = 4
roomTextBox.Max Length = "4"
roomTextBox.Ena bleViewState = True
tCell = new TableCell()
tCell.Controls. Add(roomTextBox )
tRow.Cells.Add( tCell)
''''''''''''''' '''''''''''''
Table2.Rows.Add (tRow)
Next
PlaceHolder1.Co ntrols.Add(tabl e2)
End If
End Sub
''''''''''''''' ''''''''''''''' ''''''''''''''' ''
Sub SubmitClick(obj Sender As Object, objArgs As EventArgs)
dim NumDays as integer
dim Index as integer
dim ctl as Control
dim strTextBoxConte nts as String
dim strTextBoxID as string
dim strTest as string
dim place_holder as PlaceHolder
dim frm as HtmlForm
dim txtbx as TextBox
If Page.IsValid() and Page.IsPostBack Then
frm = Page.FindContro l("form1")
place_holder = frm.FindControl ("placeholder1" )
txtbx = place_holder.Fi ndControl("Text Box0")
if txtbx is Nothing then
strTest = "Textbox0 is Nothing " & "<br>"
Else
strTest = "Textbox0.I D is " & txtbx.ID & "<br>"
End If
for each ctl in place_holder.co ntrols
If typeof ctl is textbox then
txtbx = ctype(ctl, TextBox)
strTest = strTest & txtbx.id & "<br>"
end if
next
LabDiagnostic.T ext = strTest '!!!
End If
End Sub
</script>
<body bgcolor="#FFFFF F">
<form METHOD="POST" id="form1" runat="server">
<center>
<asp:Label id="LabDiagnost ic" runat="server" />
<asp:PlaceHolde r id="PlaceHolder 1" runat="server"> </asp:PlaceHolder >
<table border="1">
<tr><td align="center" colspan="2">
<asp:Button id="Button1" runat="server" onclick="Submit Click"
text="Submit" />
</td></tr>
</table>
</center>
</form>
</body>
</html>
*************** *************** ***
