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:placeholde r 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.EventArg s)
Dim ID as integer = Request("ID")
call addControlsInPl aceholder()
End Sub
sub addControlsInPl aceholder
'create the table
dim oTable as new table
oTable.id="oTab le"
oTable.GridLine s=GridLines.Non e
'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=uni t.pixel(180)
cell2.width=uni t.pixel(120)
dim row1 as new tablerow
lb1.text= Category"
lb2.text= "isDisplaye d"
'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,su bcListItem1,sub cListItem2 As ListItem
Dim myConnection As New OdbcConnection( Application("st rConnect"))
dim strSQL as string
strSQL = " SELECT ctg_id, ctg_name FROM categories ORDER BY ctg_id"
Dim myCommand As New OdbcCommand(str SQL, myConnection)
myConnection.Op en()
Dim myReader As OdbcDataReader = myCommand.Execu teReader()
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=un it.pixel(180)
oCell2.width=un it.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").ToStri ng
chkboxlist.text =myReader.Item( "ctg_name").ToS tring
oCell1.controls .add(chkboxlist )
'create radiobuttonlist and add it cell2 (the second cell of each row)
dim rdbDisplayed as new radiobuttonlist
rdbDisplayed.Re peatDirection=r epeatdirection. Horizontal
rdbDisplayed.id ="cs_isDisplaye d_" & myReader.Item(" ctg_id").ToStri ng
'add items in radiobuttonlist s
subcListItem1 = New ListItem
subcListItem1.T ext = "yes"
subcListItem1.V alue = "1"
rdbDisplayed.It ems.Add(subcLis tItem1)
subcListItem2 = New ListItem
subcListItem2.T ext = "no"
subcListItem2.V alue = "0"
rdbDisplayed.It ems.Add(subcLis tItem2)
rdbDisplayed.it ems(0).selected =true
oCell2.controls .add(rdbDisplay ed)
'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.a dd(oTable)
myCommand.dispo se
myConnection.cl ose
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,rd bAdult as radiobuttonlist
otable = ctype((plh1.con trols(0)),table ) 'plh1 is the placeholder in the
html code
for i = 1 to otable.rows.cou nt-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 addControlsInPl aceholder has
already run before submit_pressed is engaged
displayed = rdbDisplayed.se lecteditem.valu e
'************** *************** ***
if chk.checked = true then
'show displayed
end if
next
end sub
