CustomeDropDown类的多选操作

前端

引用

<%@ Register Assembly="CustomeDropDown" Namespace="CustomeDropDown" TagPrefix="cc" %>

 

HTML控件

<cc:CustomLinkButton ID="lbtnApprove" runat="server" CssClass="easyui-linkbutton" iconcls="icon-ok" plain="true" Text="<%$Resources:General,Approve %>" />

多选框

 <asp:TemplateColumn>
                                <HeaderTemplate>
                                    <asp:CheckBox ID="chkSelectAll" runat="server" onclick="SetAllInDataGrid(this.id)" />
                                </HeaderTemplate>
                                <ItemStyle HorizontalAlign="center" />
                                <ItemTemplate>
                                    <asp:CheckBox ID="chkSelect" runat="server" />
                                </ItemTemplate>
                            </asp:TemplateColumn>

后端

页面加载

 Protected Overrides Sub PageLoad()

            If Not Page.IsPostBack Then

                If GetItem(SQLSort.SortBy.ToString) = "" Then
                    AppendItem(SQLSort.SortBy.ToString, "this.AgreementNo")
                End If
                If GetItem(SQLSort.SortDirect.ToString) = "" Then
                    AppendItem(SQLSort.SortDirect.ToString, SQLSortDirect.Desc.ToString)
                End If
                Refresh()

                InitControls()
                If Request.QueryString("Clear") = 1 Then '需要更新
                    ClearItem()
                Else
                    InitSearchControls()
                End If
                ctlPager.Pager = New Pager(20, GetItem(SessionKey.PAGE_NO, 1))
                msSortExpression = GetItem(SQLSort.SortBy.ToString(), "this.AgreementNo") & " " & GetItem(SQLSort.SortDirect.ToString(), SQLSortDirect.Desc.ToString)
                BindData()
                lbtnApprove.OnClickFunction = "javascript:return CheckSelectMessage('" & Resources.General.OneItemNeeded & "')" '至少选择一项提示
            Else
                msSortExpression = GetItem(SQLSort.SortBy.ToString(), "this.AgreementNo") & " " & GetItem(SQLSort.SortDirect.ToString(), SQLSortDirect.Desc.ToString)
            End If
        End Sub

点击事件

Protected Sub lbtnApprove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbtnApprove.Click
            For Each oGridItem As DataGridItem In grdMainList.Items
                Dim chkSelect As CheckBox = CType(oGridItem.FindControl("chkSelect"), CheckBox)
                If chkSelect.Checked Then
                    Dim oAgreement As Agreement = moAgreementBD.Load(grdMainList.DataKeys(oGridItem.ItemIndex))
                    Dim oAgent As User = moUserBD.Load(Convert.ToInt32(SessionVar.UserID))
                    Dim oWorkingUser As User = moUserBD.Load(Convert.ToInt32(SessionVar.WorkingUserID))
                    Select Case agreementProcessor.Approve(oAgreement, oWorkingUser, oAgent, "")
                        Case -1
                            BindData()
                            lblError.Text = Resources.General.UnexpectedError
                            Return
                        Case 0
                    End Select
                End If
            Next
            BindData()
        End Sub