Bob, thx for your time
I'll take your advice and post the message to the correspondent newsgroup (i
didn't understand this was for not.net.asp ;-) )
I tried to use the page_init event but it seems not to run at all (i'm sure
i'm doing something wrong.....)
Nevertheless,i send u a piece of my code...just in case.
The table i am creating is an html one.
In html code
--------------------
<asp:placeholder id="plh1" runat="server"> </asp:placeholder>
in vb code
--------------------
1. create the (html) table through code
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Dim ID as integer = Request("ID")
call addControlsInPlaceholder()
End Sub
sub addControlsInPlaceholder
'create the table
dim oTable as new table
oTable.id="oTable"
oTable.GridLines=GridLines.None
'first add the titles of each column
dim lb1 as new label
dim lb2 as new label
dim cell1 as new TableHeaderCell
dim cell2 as new TableHeaderCell
cell1.width=unit.pixel(180)
cell2.width=unit.pixel(120)
dim row1 as new tablerow
lb1.text= Category"
lb2.text= "isDisplayed"
'add labels to cells
Cell1.controls.add(lb1)
Cell2.controls.add(lb2)
'add (header) cells to row
Row1.cells.add(Cell1)
Row1.cells.add(Cell2)
'add header row to table
otable.rows.add(Row1)
'fill the chkboxlist/radiobuttonlist(s) with items
Dim id As String
Dim subcListItem,subcListItem1,subcListItem2 As ListItem
Dim myConnection As New OdbcConnection(Application("strConnect"))
dim strSQL as string
strSQL = " SELECT ctg_id, ctg_name FROM categories ORDER BY ctg_id"
Dim myCommand As New OdbcCommand(strSQL, myConnection)
myConnection.Open()
Dim myReader As OdbcDataReader = myCommand.ExecuteReader()
while myReader.Read()
'create new Row for the table
dim oRow as new tableRow
'create 2 cells for the row
dim oCell1 as new tableCell
dim oCell2 as new tableCell
oCell1.width=unit.pixel(180)
oCell2.width=unit.pixel(120)
'create checkbox and add it cell1 (the first cell of each row)
dim chkboxlist as new checkbox
chkboxlist.id = "categories_" & myReader.Item("ctg_id").ToString
chkboxlist.text=myReader.Item("ctg_name").ToString
oCell1.controls.add(chkboxlist)
'create radiobuttonlist and add it cell2 (the second cell of each row)
dim rdbDisplayed as new radiobuttonlist
rdbDisplayed.RepeatDirection=repeatdirection.Horiz ontal
rdbDisplayed.id="cs_isDisplayed_" & myReader.Item("ctg_id").ToString
'add items in radiobuttonlists
subcListItem1 = New ListItem
subcListItem1.Text = "yes"
subcListItem1.Value = "1"
rdbDisplayed.Items.Add(subcListItem1)
subcListItem2 = New ListItem
subcListItem2.Text = "no"
subcListItem2.Value = "0"
rdbDisplayed.Items.Add(subcListItem2)
rdbDisplayed.items(0).selected=true
oCell2.controls.add(rdbDisplayed)
'add cells to row
oRow.cells.add(oCell1)
oRow.cells.add(oCell2)
'add row to table
otable.rows.add(oRow)
'increase counter i, to create new row
i = i +1
end while
'add table to placeholder
plh1.controls.add(oTable)
myCommand.dispose
myConnection.close
end sub
3. when the submit button is pressed ,i try something like
private sub submit_pressed
dim otable as new table
dim tr as new tablerow
dim tc as new tablecell
dim chk as checkbox
dim i,displayed as int16
dim rdbDisplayed,rdbAdult as radiobuttonlist
otable = ctype((plh1.controls(0)),table) 'plh1 is the placeholder in the
html code
for i = 1 to otable.rows.count-1
tr = otable.controls(i)
tc = tr.controls(0)
'tc.control(0) is a checkbox
chk = tc.controls(0)
'table cell
tc = tr.controls(1)
'tc.ctontrol(1) is a radiobuttonlist
rdbDisplayed = tc.controls(0)
'********************************
'the following always returns item(0) cos addControlsInPlaceholder has
already run before submit_pressed is engaged
displayed = rdbDisplayed.selecteditem.value
'********************************
if chk.checked = true then
'show displayed
end if
next
end sub
