百隆阻尼抽屉安装图解:高分求教 动态web控件响应事件的问题!!!!
sub showtable()
dim i as byte
if i=0 then
dim mytablerow as new tablerow()
dim c1 as new tablecell()
dim c2 as new tablecell()
dim c3 as new tablecell()
Dim mytextbox As textbox = New textbox()
dim mybutton as button = new button()
mybutton.text="删除"
Addhandler mybutton.click,AddressOf btnbutton_click
c1.text=session("goodsname")(i)
c2.Controls.Add(mytextbox)
c3.Controls.Add(mybutton)
mytextbox.text=session("goodsprice")(i)
mytablerow.cells.add(c1)
mytablerow.cells.add(c2)
mytablerow.cells.add(c3)
mytable.rows.add(mytablerow)
mybutton.CommandArgument=session("mygoodsid")(0)
else for i=session("totalgoods")-1 to session("totalgoods")
dim mytablerow as new tablerow()
dim c1 as new tablecell()
dim c2 as new tablecell()
dim c3 as new tablecell()
Dim mytextbox As textbox = New textbox()
dim mybutton as button = new button()
mybutton.text="删除"
Addhandler mybutton.click,AddressOf btnbutton_click
c1.text=session("goodsname")(i)
c2.Controls.Add(mytextbox)
c3.Controls.Add(mybutton)
mytextbox.text=session("goodsprice")(i)
mytablerow.cells.add(c1)
mytablerow.cells.add(c2)
mytablerow.cells.add(c3)
mytable.rows.add(mytablerow)
mybutton.CommandArgument=session("mygoodsid")(i)
next
end if
end sub
sub btnbutton_click(sender as object,e as EventArgs)
<
???
>
end sub
sub showtable()
dim i as byte
if i=0 then
dim mytablerow as new tablerow()
dim c1 as new tablecell()
dim c2 as new tablecell()
dim c3 as new tablecell()
Dim mytextbox As textbox = New textbox()
dim mybutton as button = new button()
mybutton.text="删除"
Addhandler mybutton.click,AddressOf btnbutton_click
c1.text=session("goodsname")(i)
c2.Controls.Add(mytextbox)
c3.Controls.Add(mybutton)
mytextbox.text=session("goodsprice")(i)
mytablerow.cells.add(c1)
mytablerow.cells.add(c2)
mytablerow.cells.add(c3)
mytable.rows.add(mytablerow)
mybutton.CommandArgument=session("mygoodsid")(0)
else for i=session("totalgoods")-1 to session("totalgoods")
dim mytablerow as new tablerow()
dim c1 as new tablecell()
dim c2 as new tablecell()
dim c3 as new tablecell()
Dim mytextbox As textbox = New textbox()
dim mybutton as button = new button()
mybutton.text="删除"
Addhandler mybutton.click,AddressOf btnbutton_click
c1.text=session("goodsname")(i)
c2.Controls.Add(mytextbox)
c3.Controls.Add(mybutton)
mytextbox.text=session("goodsprice")(i)
mytablerow.cells.add(c1)
mytablerow.cells.add(c2)
mytablerow.cells.add(c3)
mytable.rows.add(mytablerow)
mybutton.CommandArgument=session("mygoodsid")(i)
next
end if
end sub
sub btnbutton_click(sender as object,e as EventArgs)
<
???
>
end sub