首先看看效果：

 Repeater控件，放在ItemTemplate内的铵钮OnClick之后，获取Repeater的Item，ItemIndex，CommandArgument，CommandName以及绑定的字段值。

准备数据：

View Code

 1 Imports Microsoft.VisualBasic 2 Namespace Insus.NET 3  4     Public Class Catalog 5  6         Private _ID As Integer 7         Private _Name As String 8  9         Public Property ID As Integer10             Get11                 Return _ID12             End Get13             Set(value As Integer)14                 _ID = value15             End Set16         End Property17 18         Public Property Name As String19             Get20                 Return _Name21             End Get22             Set(value As String)23                 _Name = value24             End Set25         End Property26 27     End Class28 End Namespace

View Code

 1  Private Function GetData() As List(Of Catalog) 2         Dim cls As New List(Of Catalog) 3  4         Dim cl As Catalog = New Catalog() 5         cl.ID = 1 6         cl.Name = "汽车" 7         cls.Add(cl) 8  9         cl = New Catalog()10         cl.ID = 211         cl.Name = "时尚"12         cls.Add(cl)13 14         cl = New Catalog()15         cl.ID = 316         cl.Name = "科技"17         cls.Add(cl)18 19         cl = New Catalog()20         cl.ID = 521         cl.Name = "文化"22         cls.Add(cl)23 24         cl = New Catalog()25         cl.ID = 626         cl.Name = "公益"27         cls.Add(cl)28         Return cls29     End Function

在.aspx放置Repeater控件：

View Code

 <asp:Repeater ID="RepeaterCatalog" runat="server">                <HeaderTemplate>                    <table border="1" cellpadding="3" cellspacing="0">                        <tr>                            <td>ID                            </td>                            <td>Name                            </td>                            <td>Choose</td>                        </tr>                </HeaderTemplate>                <ItemTemplate>                    <tr>                        <td>                            <asp:Label ID="LabelID" runat="server" Text='<%# Eval("ID")%>'></asp:Label>                        </td>                        <td>                            <asp:Label ID="LabelName" runat="server" Text='<%# Eval("Name")%>'></asp:Label>                        </td>                        <td>                            <asp:Button ID="Button1" runat="server" Text="Select" OnClick="Button1_Click" CommandArgument='<%# Eval("ID")%>' CommandName="Choose" />                        </td>                    </tr>                </ItemTemplate>                <FooterTemplate>                    </table>                </FooterTemplate>            </asp:Repeater>

在.aspx.vb为Repeater控件绑定数据：

View Code

Imports Insus.NETPartial Class Default2    Inherits System.Web.UI.Page    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load        If Not IsPostBack Then            Data_Binding()        End If    End Sub    Private Sub Data_Binding()        Me.RepeaterCatalog.DataSource = GetData()        Me.RepeaterCatalog.DataBind()    End SubEnd Class

接下来，我们写onclick事件，在写事件之前，先在.aspx放一个Label来显示事件结果：

View Code

Process infor:<asp:Label ID="LabelInfo" runat="server" Text=""></asp:Label>

View Code

 Protected Sub Button1_Click(sender As Object, e As EventArgs)        Dim btn As Button = DirectCast(sender, Button)        Dim commandArgument As String = btn.CommandArgument        Dim commandName As String = btn.CommandName        Dim item As RepeaterItem = DirectCast(btn.NamingContainer, RepeaterItem)        Dim index As Integer = item.ItemIndex        Dim id As String = DirectCast(item.FindControl("LabelID"), Label).Text        Dim name As String = DirectCast(item.FindControl("LabelName"), Label).Text        Me.LabelInfo.Text = String.Format("Item index: {0}; CommandArgument: {1}; CommandName: {2}; ID: {3}; Name: {4};", index, commandArgument, commandName, id, name)    End Sub