没有拉铆枪怎样拉铆钉:高分求教 动态web控件响应事件的问题!!!!

来源:百度文库 编辑:中科新闻网 时间:2024/05/09 04:39:44
由于课题需求.我需要做一个动态表格然后在每行都有个删除按钮 但是与其相对应的响应事件如何侦测具体就是sender语句编写我不太清楚.我是用vb.net编写的.
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