2

我已经完成了研究,但找不到在VB中执行以下操作的有效方法:

  • 每个按钮都应该触发相同的事件。
  • 按钮事件保存每个中继器项目,因此每个事件不是唯一的。

我知道我可以使用 ItemCommand 选项,但无法使其按需要工作。

ASP.NET

内部中继器项目

<asp:Button ID="btnSave" RunAt="Server"/>

VB.NET

Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    sqlConn.Open()
        For Each Item As RepeaterItem In rpt.Items
        ...
        Next
    sqlConn.Close()
End Sub
4

2 回答 2

9

编辑:

在对 SO 进行一些研究之后,我发现其他事件不是ItemCommand被 捕获的Asp:Repeater,正如FlySwat在他的回答中所说的那样。因此,您需要VB.NET像这样编写代码:

首先,ItemCommand在您的页面上声明事件,如下所示:

Protected Sub rpt_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles rpt.ItemCommand
    If e.CommandName = "Save" Then
        'Save
    End If
End Sub

然后,在 中的Asp:Button标记上Asp:Repeater,您必须CommandName像这样设置它的属性:

<Asp:Button ID="btnSave" runat="server" CommandName="Save" UseSubmitBehavior="false"/>

看看这里了解更多关于UseSubmitBehavior.

试试看。

于 2013-12-12T10:53:07.563 回答
4

当按钮在Repeater模板内时,需要添加OnClick事件,可以ItemDataBound event在Repeater控件上添加事件。

您的 .aspx 代码将如下所示:

 <asp:Repeater ID="Repeater1" runat="server">
    <ItemTemplate>
        <asp:Button  ID="btnSave" runat="server" Text="SomeText" />
    </ItemTemplate>
</asp:Repeater>

代码隐藏

void Repeater1_ItemDataBound(object sender, RepeaterItemEventArgs e)
{
    if (e.Item.ItemType == Repeater1.AlternatingItem || e.Item.ItemType == Repeater1.Item)
    {
        var btn = e.Item.FindControl("btnSave") as Button;
        if (btn != null)
        {  // adding button event 
            btn.Click += new EventHandler(btn_Click);
        }
    }
}

void btn_Click(object sender, EventArgs e)
{
 //write your code 
}

在 vb.net

Private Sub Repeater1_ItemDataBound(sender As Object, e As RepeaterItemEventArgs)
    If e.Item.ItemType = Repeater1.AlternatingItem OrElse e.Item.ItemType = Repeater1.Item Then
        Dim btn = TryCast(e.Item.FindControl("btnSave"), Button)
        If btn IsNot Nothing Then
            ' adding button event 
            btn.Click += New EventHandler(btn_Click)
        End If
    End If
End Sub

Private Sub btn_Click(sender As Object, e As EventArgs)
    'write your code 
End Sub
于 2013-12-12T10:25:08.440 回答