Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DBReader() As String = {"1111", "22222", "3333", "4444", "5555", "6666", "7777", "8888"}
Dim i As Integer
Dim tblRow As New TableRow
tblRow.BorderStyle = BorderStyle.Solid
Dim MyLinkButton As LinkButton
For i = 0 To UBound(DBReader)
Dim tblCell As New TableCell
MyLinkButton = New LinkButton
MyLinkButton.Text = DBReader(i)
MyLinkButton.ID = "MyButton" & DBReader(i)
AddHandler MyLinkButton.Click, New EventHandler(AddressOf MyLinkButton_Click)
tblCell.Controls.Add(MyLinkButton)
If i = 2 Or i = 3 Then
tblCell.Controls.Add(MyLinkButton)
Else
tblCell.Controls.Add(New LiteralControl(DBReader(i)))
End If
tblRow.Cells.Add(tblCell)
Next i
Table1.Rows.Add(tblRow)
Table1.BorderStyle = BorderStyle.Solid
End Sub
Private Sub MyLinkButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim a As New Hashtable
End Sub
我这里所有生成的Link的Click都会执行到MyLinkButton_Click里面