DataList专题

    技术2022-05-11  90

    ASPX部分:其中模版列有两个控件,分别为ImageButton,和LinkButton。 ---------------------------------------------------------------------------------------------------------------------- <asp:DataList ID="DataList1" runat="server" CellPadding="4" ForeColor="#333333" RepeatColumns="1" Width="88px">                        <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />                        <SelectedItemStyle BackColor="#D1DDF1" ForeColor="#333333" Font-Bold="True" />                        <ItemTemplate>                            <asp:ImageButton ID="ImageButton1" runat="server" CausesValidation="False" CommandName="Selec"                                ImageUrl="~/Images/BaseImages/info.jpg" />                            <asp:LinkButton ID="LinkButton1" runat="server"  Text='<%# DataBinder.Eval(Container.DataItem,"RoomName") %>' CommandName="Selec" CausesValidation="False"></asp:LinkButton>                        </ItemTemplate>                        <AlternatingItemStyle BackColor="White" />                        <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />                        <ItemStyle BackColor="#EFF3FB" />                    </asp:DataList>为DataList指定数据源:.vb文件。----------------------------------------------------------------------------------------------------------------------    Private Sub BindDL()        DataList1.DataSource = met.getAllMeetingRooms(Session("GLOBAL_DepCode").ToString())        DataList1.DataKeyField = "Bid"        DataList1.DataBind()    End Sub为模版列添加事件:.vb文件----------------------------------------------------------------------------------------------------------------------方法1:利用ItemCommand事件。需要指定其中控件(例如)的CommandName,推荐,并且多个控件可以共用一个CommandName。Protected Sub DataList1_ItemCommand(ByVal ource As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand        bid = DataList1.DataKeys(e.Item.ItemIndex).ToString        If e.CommandName = "Selec" Then            BindGV(bid)        End If    End Sub 方法2:利用LinkButton    'Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)    '    Dim r As Integer    '    r = CType(CType(sender, LinkButton).NamingContainer, DataListItem).ItemIndex    '    bid = DataList1.DataKeys(r).ToString()    '    BindGV(bid)    'End Sub注意:----------------------------------------------------------------------------------------------------------------------1 模板列中的LinkButton或者别的事件没有触发,请注意页面中是否有验证控件。请将模版列中的控件的 CausesValidation="False"2


    最新回复(0)