企业级VB分页控件

 Imports System

Imports System.Collections

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Text

Imports System.Web

Imports System.Web.UI

Imports System.Web.UI.WebControls

 

Namespace Common.Tools.Controls

<ToolboxData("<{0}:PagerBar runat='server'></{0}:PagerBar>")> _

Public Class clsPaging

Inherits Control

Implements INamingContainer

 

<Category("Navigation")> _

<DefaultValue("CurrentPage")> _

Public Property PageParamName() As String

Get

Return IIf(ViewState("PageParamName") Is Nothing, "CurrentPage", ViewState("PageParamName"))

End Get

Set(ByVal value As String)

ViewState("PageParamName") = value

End Set

End Property

<Category("Data")> _

<Browsable(False)> _

Public Property CurrentPage() As Integer

Get

If (ViewState("CurrentPage") Is Nothing) Then

Dim viCurrentPage As Integer

If (Int32.TryParse(HttpContext.Current.Request.QueryString(Me.PageParamName), viCurrentPage)) Then

ViewState("CurrentPage") = viCurrentPage

Else

ViewState("CurrentPage") = 1

End If

End If

Return Int32.Parse(ViewState("CurrentPage"))

End Get

Set(ByVal value As Integer)

ViewState("CurrentPage") = value

End Set

End Property

<Category("Data")> _

<DefaultValue(10)> _

Public Property DispPageSize() As Integer

Get

Return IIf(ViewState("DispPageSize") Is Nothing, 10, ViewState("DispPageSize"))

End Get

Set(ByVal value As Integer)

ViewState("DispPageSize") = value

End Set

End Property

<Category("Data")> _

<DefaultValue(10)> _

Public Property PageSize() As Integer

Get

Dim viPageSize As Integer = IIf(ViewState("PageSize") Is Nothing, 10, ViewState("PageSize"))

Return IIf(viPageSize > 0, viPageSize, 0)

End Get

Set(ByVal value As Integer)

ViewState("PageSize") = value

End Set

End Property

<Category("Data")> _

<Browsable(False)> _

Public Property RecordCount() As Integer

Get

Return IIf(ViewState("RecordCount") Is Nothing, 0, ViewState("RecordCount"))

End Get

Set(ByVal value As Integer)

ViewState("RecordCount") = value

End Set

End Property

<Browsable(False)> _

Public ReadOnly Property PageCount() As Integer

Get

Return Int32.Parse(Math.Ceiling(Double.Parse(Me.RecordCount / Me.PageSize)))

End Get

End Property

 

<Category("Data")> _

<DefaultValue("Page:")> _

Public Property HeaderText() As String

Get

Return IIf(ViewState("HeaderText") Is Nothing, "Page:", ViewState("HeaderText"))

End Get

Set(ByVal value As String)

ViewState("HeaderText") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue(False)> _

 Public Property HeaderTextVisible() As Boolean

Get

Return IIf(ViewState("HeaderTextVisible") Is Nothing, False, ViewState("HeaderTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("HeaderTextVisible") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue("First")> _

Public Property FirstPageText() As String

Get

Return IIf(ViewState("FirstPageText") Is Nothing, "First", ViewState("FirstPageText"))

End Get

Set(ByVal value As String)

ViewState("FirstPageText") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue(False)> _

 Public Property FirstPageTextVisible() As Boolean

Get

Return IIf(ViewState("FirstPageTextVisible") Is Nothing, False, ViewState("FirstPageTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("FirstPageTextVisible") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue("Previous")> _

Public Property PrePageText() As String

Get

Return IIf(ViewState("PrePageText") Is Nothing, "Previous", ViewState("PrePageText"))

End Get

Set(ByVal value As String)

ViewState("PrePageText") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue(False)> _

 Public Property PrePageTextVisible() As Boolean

Get

Return IIf(ViewState("PrePageTextVisible") Is Nothing, False, ViewState("PrePageTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("PrePageTextVisible") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue("Next")> _

Public Property NextPageText() As String

Get

Return IIf(ViewState("NextPageText") Is Nothing, "Next", ViewState("NextPageText"))

End Get

Set(ByVal value As String)

ViewState("NextPageText") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue(False)> _

 Public Property NextPageTextVisible() As Boolean

Get

Return IIf(ViewState("NextPageTextVisible") Is Nothing, False, ViewState("NextPageTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("NextPageTextVisible") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue("Last")> _

 Public Property LastPageText() As String

Get

Return IIf(ViewState("LastPageText") Is Nothing, "Last", ViewState("LastPageText"))

End Get

Set(ByVal value As String)

ViewState("LastPageText") = value

End Set

End Property

<Category("Navigation")> _

 <DefaultValue(False)> _

Public Property LastPageTextVisible() As Boolean

Get

Return IIf(ViewState("LastPageTextVisible") Is Nothing, False, ViewState("LastPageTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("LastPageTextVisible") = value

End Set

End Property

 

<Category("Navigation")> _

<DefaultValue("...")> _

Public Property PrePageDotText() As String

Get

Return IIf(ViewState("PrePageDotText") Is Nothing, "...", ViewState("PrePageDotText"))

End Get

Set(ByVal value As String)

ViewState("PrePageDotText") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue(False)> _

Public Property PrePageDotTextVisible() As Boolean

Get

Return IIf(ViewState("PrePageDotTextVisible") Is Nothing, False, ViewState("PrePageDotTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("PrePageDotTextVisible") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue("...")> _

Public Property NextPageDotText() As String

Get

Return IIf(ViewState("NextPageDotText") Is Nothing, "...", ViewState("NextPageDotText"))

End Get

Set(ByVal value As String)

ViewState("NextPageDotText") = value

End Set

End Property

<Category("Navigation")> _

<DefaultValue(False)> _

Public Property NextPageDotTextVisible() As Boolean

Get

Return IIf(ViewState("NextPageDotTextVisible") Is Nothing, False, ViewState("NextPageDotTextVisible"))

End Get

Set(ByVal value As Boolean)

ViewState("NextPageDotTextVisible") = value

End Set

End Property

' <Category("Layout")> _

' Public Property Width() As Unit

'     Get

'         Return IIf(ViewState("Width") Is Nothing, Unit.Percentage(100), ViewState("Width"))

'     End Get

'     Set(ByVal value As Unit)

'         ViewState("Width") = value

'     End Set

' End Property

' <Category("Layout")> _

'Public Property Height() As Unit

'     Get

'         Return IIf(ViewState("Height") Is Nothing, Unit.Pixel(120), ViewState("Height"))

'     End Get

'     Set(ByVal value As Unit)

'         ViewState("Height") = value

'     End Set

' End Property

<Category("Layout")> _

<DefaultValue(0)> _

Public Property CellPadding() As Int32

Get

Return IIf(ViewState("CellPadding") Is Nothing, 0, ViewState("CellPadding"))

End Get

Set(ByVal value As Int32)

ViewState("CellPadding") = value

End Set

End Property

<Category("Layout")> _

<DefaultValue(0)> _

Public Property CellSpacing() As Int32

Get

Return IIf(ViewState("CellSpacing") Is Nothing, 0, ViewState("CellSpacing"))

End Get

Set(ByVal value As Int32)

ViewState("CellSpacing") = value

End Set

End Property

 

<Category("Appearance")> _

Public Property TableCssClass() As String

Get

Return IIf(ViewState("TableCssClass") Is Nothing, "", ViewState("TableCssClass"))

End Get

Set(ByVal value As String)

ViewState("TableCssClass") = value

End Set

End Property

<Category("Appearance")> _

Public Property HeaderCellCssClass() As String

Get

Return IIf(ViewState("HeaderCellCssClass") Is Nothing, "", ViewState("HeaderCellCssClass"))

End Get

Set(ByVal value As String)

ViewState("HeaderCellCssClass") = value

End Set

End Property

<Category("Appearance")> _

Public Property TableCellCssClass() As String

Get

Return IIf(ViewState("TableCellCssClass") Is Nothing, "", ViewState("TableCellCssClass"))

End Get

Set(ByVal value As String)

ViewState("TableCellCssClass") = value

End Set

End Property

        <Category("Appearance")> _

        Public Property PagerCellOverCssClass() As Object

            Get

                Return IIf(ViewState("PagerCellOverCssClass") Is Nothing, "", ViewState("PagerCellOverCssClass"))

            End Get

            Set(ByVal value As Object)

                ViewState("PagerCellOverCssClass") = value

            End Set

        End Property

<Category("Appearance")> _

Public Property PagerCssClass() As String

Get

Return IIf(ViewState("PagerCssClass") Is Nothing, "", ViewState("PagerCssClass"))

End Get

Set(ByVal value As String)

ViewState("PagerCssClass") = value

End Set

End Property

<Category("Appearance")> _

Public Property PagerBarCssClass() As String

Get

Return IIf(ViewState("PagerBarCssClass") Is Nothing, "", ViewState("PagerBarCssClass"))

End Get

Set(ByVal value As String)

ViewState("PagerBarCssClass") = value

End Set

End Property

 

Private Function GetPagerUrl() As String

Dim sbUrl As StringBuilder = New StringBuilder(HttpContext.Current.Request.Path)

sbUrl.Append("?")

Dim query As NameValueCollection = HttpContext.Current.Request.QueryString

For i As Integer = 0 To query.Count - 1

If (query.GetKey(i) <> Me.PageParamName) Then

sbUrl.Append(query.GetKey(i))

sbUrl.Append("=")

sbUrl.Append(HttpContext.Current.Server.UrlEncode(query.Get(i)))

sbUrl.Append("&")

End If

Next

sbUrl.Append(Me.PageParamName)

sbUrl.Append("=")

Return sbUrl.ToString()

End Function

Public Class clsLinkInfo

Private vsKey As String

Private vsLink As String

Private vsCssClass As String

Sub New(ByVal _vsKey As String, ByVal _vsLink As String, ByVal _vsCssClass As String)

vsKey = _vsKey

vsLink = _vsLink

vsCssClass = _vsCssClass

End Sub

Public ReadOnly Property prsKey() As String

Get

Return vsKey

End Get

End Property

Public ReadOnly Property prsLink() As String

Get

Return vsLink

End Get

End Property

Public ReadOnly Property prsCssClass() As String

Get

Return vsCssClass

End Get

End Property

End Class

Public Function GetPagerLinks() As List(Of clsLinkInfo)

Dim i As Integer

Dim links As List(Of clsLinkInfo) = New List(Of clsLinkInfo)

links.Clear()

Dim prePage As Integer = 1

Dim nextPage As Integer = 1

If (Me.RecordCount > 0) Then

Dim pagerURl As String = Me.GetPagerUrl()

prePage = IIf(Me.CurrentPage > 1, Me.CurrentPage - 1, 1)

nextPage = IIf(Me.CurrentPage + 1 > Me.PageCount, Me.PageCount, CurrentPage + 1)

If PageCount = 1 Then

links.Add(New clsLinkInfo("1", "1", TableCellCssClass))

Else

If PageCount <= DispPageSize Then

If CurrentPage = 1 Then

For i = 1 To PageCount

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

If NextPageTextVisible Then

links.Add(New clsLinkInfo(NextPageText, nextPage.ToString(), PagerBarCssClass))

End If

If LastPageTextVisible Then

links.Add(New clsLinkInfo(LastPageText, PageCount.ToString(), PagerBarCssClass))

End If

ElseIf CurrentPage = PageCount Then

If FirstPageTextVisible Then

links.Add(New clsLinkInfo(FirstPageText, "1", PagerBarCssClass))

End If

If PrePageTextVisible Then

links.Add(New clsLinkInfo(PrePageText, prePage.ToString(), PagerBarCssClass))

End If

For i = 1 To PageCount

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

Else

If FirstPageTextVisible Then

links.Add(New clsLinkInfo(FirstPageText, "1", TableCellCssClass))

End If

If PrePageTextVisible Then

links.Add(New clsLinkInfo(PrePageText, prePage.ToString(), PagerBarCssClass))

End If

 

For i = 1 To PageCount

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

 

If NextPageTextVisible Then

links.Add(New clsLinkInfo(NextPageText, nextPage.ToString(), PagerBarCssClass))

End If

If LastPageTextVisible Then

links.Add(New clsLinkInfo(LastPageText, PageCount.ToString(), PagerBarCssClass))

End If

End If

Else

If CurrentPage = 1 Then

For i = 1 To DispPageSize

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

 

If NextPageTextVisible Then

links.Add(New clsLinkInfo(NextPageText, nextPage.ToString(), PagerBarCssClass))

End If

 

'dot

If NextPageDotTextVisible And (CurrentPage + DispPageSize) < PageCount Then

links.Add(New clsLinkInfo(NextPageDotText, priNextPageDotValue.ToString(), TableCellCssClass))

End If

 

 

If LastPageTextVisible Then

links.Add(New clsLinkInfo(LastPageText, PageCount.ToString(), PagerBarCssClass))

End If

ElseIf CurrentPage = PageCount Then

If FirstPageTextVisible Then

links.Add(New clsLinkInfo(FirstPageText, "1", PagerBarCssClass))

End If

 

'dot

If PrePageDotTextVisible And CurrentPage - DispPageSize > 0 Then

links.Add(New clsLinkInfo(PrePageDotText, priPrePageDotValue.ToString(), TableCellCssClass))

End If

 

If PrePageTextVisible Then

links.Add(New clsLinkInfo(PrePageText, prePage.ToString(), PagerBarCssClass))

End If

 

 

For i = PageCount - DispPageSize To PageCount

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

ElseIf CurrentPage < DispPageSize Then

If PrePageTextVisible Then

links.Add(New clsLinkInfo(PrePageText, prePage.ToString(), PagerBarCssClass))

End If

For i = 1 To DispPageSize

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

 

 

If NextPageTextVisible Then

links.Add(New clsLinkInfo(NextPageText, nextPage.ToString(), PagerBarCssClass))

End If

 

 

'dot

If NextPageDotTextVisible Then

links.Add(New clsLinkInfo(NextPageDotText, priNextPageDotValue.ToString(), TableCellCssClass))

End If

 

If LastPageTextVisible Then

links.Add(New clsLinkInfo(LastPageText, PageCount.ToString(), PagerBarCssClass))

End If

Else

Dim viStepSize As Integer = Math.Floor(Double.Parse(DispPageSize / 2))

 

If FirstPageTextVisible Then

links.Add(New clsLinkInfo(FirstPageText, "1", PagerBarCssClass))

End If

 

'dot

If PrePageDotTextVisible And (CurrentPage - DispPageSize) >= 0 Then

links.Add(New clsLinkInfo(PrePageDotText, priPrePageDotValue.ToString(), TableCellCssClass))

End If

 

If PrePageTextVisible Then

links.Add(New clsLinkInfo(PrePageText, prePage.ToString(), PagerBarCssClass))

End If

 

 

If CurrentPage < DispPageSize Then

For i = 1 To DispPageSize

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

Else

If CurrentPage + viStepSize > PageCount Then

If CurrentPage - DispPageSize >= 0 Then

For i = PageCount - DispPageSize To PageCount

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

End If

Else

For i = CurrentPage - viStepSize To CurrentPage + viStepSize

links.Add(New clsLinkInfo(i.ToString(), i.ToString(), TableCellCssClass))

Next

End If

End If

 

 

 

If NextPageTextVisible Then

links.Add(New clsLinkInfo(NextPageText, nextPage.ToString(), PagerBarCssClass))

End If

 

'dot

If NextPageDotTextVisible And (CurrentPage + viStepSize) < PageCount Then

links.Add(New clsLinkInfo(NextPageDotText, priNextPageDotValue.ToString(), TableCellCssClass))

End If

 

 

If LastPageTextVisible Then

links.Add(New clsLinkInfo(LastPageText, PageCount.ToString(), PagerBarCssClass))

End If

End If

End If

End If

Return links

Else

Me.CurrentPage = 0

End If

Return links

End Function

Private ReadOnly Property priPrePageDotValue() As Integer

Get

Return IIf((CurrentPage - DispPageSize) <= 1, 1, CurrentPage - DispPageSize)

End Get

End Property

Private ReadOnly Property priNextPageDotValue() As Integer

Get

Return IIf((CurrentPage + DispPageSize) >= PageCount, PageCount, CurrentPage + DispPageSize)

End Get

End Property

'Private Sub GetHTML(ByVal writer As HtmlTextWriter)

'    Dim links As List(Of clsLinkInfo) = Me.GetPagerLinks()

'    If links.Count > 0 Then

'        writer.WriteBeginTag("table")

'        'writer.WriteAttribute("width", Width.ToString())

'        'writer.WriteAttribute("height", Height.ToString())

'        writer.WriteAttribute("cellpadding", CellPadding.ToString())

'        writer.WriteAttribute("cellspacing", CellSpacing.ToString())

'        writer.WriteAttribute("class", TableCssClass)

'        writer.Write(HtmlTextWriter.TagRightChar)

'        writer.WriteFullBeginTag("tr")

'        writer.WriteBeginTag("td")

'        writer.WriteAttribute("class", Me.HeaderCellCssClass)

'        writer.Write(HtmlTextWriter.TagRightChar)

'        writer.Write(HeaderText)

'        writer.WriteEndTag("td")

 

'        For i As Integer = 0 To links.Count - 1

'            Dim voLinkInfo As clsLinkInfo = links(i)

'            If voLinkInfo.prsKey <> CurrentPage.ToString() Then

'                writer.WriteBeginTag("td")

'                writer.WriteAttribute("class", Me.TableCellCssClass)

'                writer.Write(HtmlTextWriter.TagRightChar)

'                writer.WriteBeginTag("a")

'                writer.WriteAttribute(HtmlTextWriterAttribute.Onclick, Page.ClientScript.GetPostBackEventReference(Me, voLinkInfo.prsLink))

'                writer.Write(HtmlTextWriter.TagRightChar)

'                writer.Write(voLinkInfo.prsKey)

'                writer.WriteEndTag("a")

'                writer.WriteEndTag("td")

'            Else

'                writer.WriteBeginTag("td")

'                writer.WriteAttribute("class", Me.PagerCssClass)

'                writer.Write(HtmlTextWriter.TagRightChar)

'                writer.Write(voLinkInfo.prsKey)

'                writer.WriteEndTag("td")

'            End If

'        Next

'        writer.WriteEndTag("td")

'        writer.WriteEndTag("tr")

'        writer.WriteEndTag("table")

'    End If

'End Sub

Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)

'Me.GetHTML(writer)

MyBase.Render(writer)

End Sub

Protected Overrides Sub CreateChildControls()

Controls.Clear()

Dim links As List(Of clsLinkInfo) = Me.GetPagerLinks()

 

If links.Count > 0 Then

Dim tb As Table = New Table()

tb.ID = Me.ID + "_Table"

tb.Attributes.Add("cellspacing", CellSpacing.ToString())

tb.Attributes.Add("cellpadding", CellPadding.ToString())

tb.Attributes.Add("class", TableCssClass)

 

Dim tr As TableRow = New TableRow()

 

Dim tc As TableCell = New TableCell()

 

If HeaderTextVisible Then

tc.Attributes.Add("class", HeaderCellCssClass)

tc.Controls.Add(New LiteralControl(HeaderText))

tr.Controls.Add(tc)

End If

 

For i As Integer = 0 To links.Count - 1

Dim voLinkInfo As clsLinkInfo = links(i)

tc = New TableCell()

If voLinkInfo.prsKey <> CurrentPage.ToString() Then

tc.Attributes.Add("class", voLinkInfo.prsCssClass)

Dim PageLink As LinkButton = New LinkButton()

PageLink.Text = voLinkInfo.prsKey

PageLink.CommandArgument = voLinkInfo.prsLink

AddHandler PageLink.Click, AddressOf PageLink_Click

tc.Controls.Add(PageLink)

Else

tc.Attributes.Add("class", PagerCssClass)

tc.Controls.Add(New LiteralControl(voLinkInfo.prsKey))

End If

tr.Controls.Add(tc)

Next

tb.Controls.Add(tr)

Me.Controls.Add(tb)

End If

End Sub

'Protected Overrides Sub RenderChildren(ByVal writer As System.Web.UI.HtmlTextWriter)

'    writer.Write("PageBar Control<" + Me.ID + ">")

'End Sub

Public Event PageIndexChanged As EventHandler

Private Sub OnPageIndexChanged(ByVal e As EventArgs)

RaiseEvent PageIndexChanged(Me, e)

End Sub

Private Sub PageLink_Click(ByVal Sender As Object, ByVal e As EventArgs)

Dim PageLink As LinkButton = CType(Sender, LinkButton)

Dim viCurrentPage As Integer = Convert.ToInt32(PageLink.CommandArgument)

Me.CurrentPage = viCurrentPage

CreateChildControls()

OnPageIndexChanged(EventArgs.Empty)

End Sub

End Class

End Namespace

 

 

 

 

<tools:clsPaging ID="ucPagerBar" runat="server" HeaderCellCssClass="PagerHeader"

                            PagerCssClass="PagerCurrTableCell" PagerBarCssClass="PagerBar" TableCellCssClass="PagerTableCell"

                            TableCssClass="PagerTable" PageSize="10" DispPageSize="15" NextPageText=">"

                            PrePageText="<" NextPageTextVisible="True" PrePageTextVisible="True" NextPageDotTextVisible="True"

                            PrePageDotTextVisible="True" FirstPageText="|<" FirstPageTextVisible="True" LastPageText=">|"

                            LastPageTextVisible="True" NextPageDotText=">>" PrePageDotText="<<">

            </tools:clsPaging>

 

 

 

 

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            sbBindData()

        End If

    End Sub

    Protected Sub sbBindData()

        Dim odtSelectMercSendMail As New dsSelectMercSendMail.sp_SelectMercSendMailDataTable

        Dim otaSelectMercSendMail As New dsSelectMercSendMailTableAdapters.sp_SelectMercSendMailTableAdapter

        Dim viCurrentPage As Integer

        If ucPagerBar.CurrentPage = 0 Then

            viCurrentPage = 1

        Else

            viCurrentPage = ucPagerBar.CurrentPage

        End If

        Dim viPageSize As Integer = ucPagerBar.PageSize

 

        Dim viRecordCount As Integer

        Dim vsSortField As String = "Email"

        Dim vsSortType As String = "ASC"

        Dim vsSearchUserName As String = Nothing

        Dim vsSearchEmail As String = Nothing

        Dim viIsActive As String = Nothing

        Dim viIsLocked As String = Nothing

        Dim vdtStartTime As Nullable(Of DateTime) = Nothing

        Dim vdtEndTime As Nullable(Of DateTime) = Nothing

 

        Select Case optlstActive.SelectedIndex

            Case 1

                viIsActive = "1"

            Case 2

                viIsActive = "0"

            Case Else

                viIsActive = Nothing

        End Select

 

        Select Case optlstLock.SelectedIndex

            Case 1

                viIsLocked = "1"

            Case 2

                viIsLocked = "0"

            Case Else

                viIsLocked = Nothing

        End Select

 

        If txtDateStart.Text.ToString() <> "" Then

            vdtStartTime = txtDateStart.Text.ToString()

            If txtDateEnd.Text.ToString() <> "" Then

                vdtEndTime = txtDateEnd.Text.ToString()

            End If

        End If

 

        If txtKeyword.Text.ToString() <> "" Then

            If drplstSearchType.SelectedIndex = 0 Then

                vsSearchUserName = txtKeyword.Text.ToString()

            Else

                vsSearchEmail = txtKeyword.Text.ToString()

            End If

        End If

 

        odtSelectMercSendMail = otaSelectMercSendMail.fndtGetAllMerchant(viIsActive, viIsLocked, vsSearchUserName, vsSearchEmail, vdtStartTime, vdtEndTime, viCurrentPage, viPageSize, vsSortField, vsSortType, viRecordCount)

        Me.dlMerc.DataSource = odtSelectMercSendMail

        dlMerc.DataBind()

        ucPagerBar.RecordCount = viRecordCount

    End Sub

    Protected Sub ucPagerBar_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ucPagerBar.PageIndexChanged

        ucPagerBar.CurrentPage = CType(sender, Common.Tools.Controls.clsPaging).CurrentPage

        sbBindData()

    End Sub