DATALIST分页---常用

来源：互联网发布：北京移动网络优化中心编辑：程序博客网时间：2024/04/30 18:59

   Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
        BindList(1)
        PageListItem()
        ShowWhatButton()
    End Sub

Sub BindList(ByVal PageNo As Integer)

       myconn = New SqlClient.SqlConnection
        myconn.ConnectionString = (xinxi.stringconnection)
        Dim strSQL As String = "Select * From news Order By newsid Desc "
        Dim objCmd As New SqlClient.SqlDataAdapter(strSQL, myconn.ConnectionString)
        Dim DS As New DataSet
        objCmd.Fill(DS, "news")
        Dim myTable As DataTable = DS.Tables("news")

Dim TotalRecord As Integer = myTable.Rows.Count
ShowTotalRecord.Text = TotalRecord

        Dim TotalPage As Integer
        If TotalRecord < 20 Then         ‘20：每页显示的数量
            TotalPage = 1
        Else
            If TotalRecord Mod 20 <> 0 Then
                TotalPage = TotalRecord / 20 + 1
            Else
                TotalPage = TotalRecord / 20
            End If
        End If
        ShowTotalPage.Text = TotalPage

Dim tempTable As DataTable = myTable.Clone()

        Dim I, J As Integer
        For I = (PageNo - 1) * 20 To PageNo * 20 - 1
            If I > myTable.Rows.Count - 1 Then Exit For
            Dim newRow As DataRow = tempTable.NewRow()
            For J = 0 To myTable.Columns.Count - 1
                newRow(myTable.Columns(J).ColumnName) = myTable.Rows(I).Item(J)
            Next
            tempTable.Rows.Add(newRow)
        Next
        Label1.Text = PageNo
        myGuestbook.DataSource = tempTable
        myGuestbook.DataBind()
    End Sub

    Sub ShowWhatButton()
        If PageList.SelectedIndex = 0 Then
            firstButton.Enabled = False

            preButton.Enabled = False
        Else
            firstButton.Enabled = True
            preButton.Enabled = True
        End If
        If PageList.SelectedIndex = PageList.Items.Count - 1 Then
            nextButton.Enabled = False
            lastButton.Enabled = False
        Else
            nextButton.Enabled = True
            lastButton.Enabled = True
        End If
    End Sub
    Sub PageListItem()
        Dim I As Integer
        PageList.Items.Clear()
        For I = 0 To ShowTotalPage.Text - 1
            PageList.Items.Add("第" & I + 1 & "页")
        Next
    End Sub

Sub PageList_Change(ByVal sender As Object, ByVal e As EventArgs)
BindList(PageList.SelectedIndex + 1)

ShowWhatButton()
End Sub

    Sub PageChange(ByVal sender As Object, ByVal e As CommandEventArgs)
        Select Case e.CommandArgument
            Case "firstPage"
                PageList.SelectedIndex = 0
            Case "prePage"
                PageList.SelectedIndex -= 1
            Case "nextPage"
                PageList.SelectedIndex += 1
            Case "lastPage"
                PageList.SelectedIndex = ShowTotalPage.Text - 1

        End Select
        BindList(PageList.SelectedIndex + 1)
        ShowWhatButton()
    End Sub