datagrid分页问题（前后跳页）《控件版》

最新推荐文章于 2023-05-24 11:25:02 发布

脚本无敌

最新推荐文章于 2023-05-24 11:25:02 发布

阅读量663

点赞数

分类专栏： .NET 文章标签： datagrid integer button asp server textbox

.NET 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

datagrid分页问题（前后跳页）《控件版》

把它定义在用户控件中的。在。ASCX中写的。

在CSDN上看了很多的DATAGRID分页问题，当然DATAGRID有自己的分页项，功能是很有限的，我也在CSDN上看了很多自己分页的代码，发现都是用C#写的，我写了一个用ASP。NET中VB语言写的。以下代码供大家参考。

HTML代码：

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="DataGridPage.ascx.vb" Inherits="datagridfenye.DataGridPage" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
<LINK href="../css/style.css" type="text/css" rel="stylesheet">
<FONT face="MS UI Gothic"></FONT>
<asp:panel id="divPanel" ForeColor="Blue" CssClass="font2" HorizontalAlign="Left" Width="84.16%"
runat="server" Visible="True">
<asp:Button id="btnNavFirst" runat="server" BorderStyle="Ridge" Text="初頁" CommandName="FIRST"
BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
<asp:Button id="btnNavPrevious" runat="server" BorderStyle="Ridge" Text="前頁" CommandName="PREVIOUS"
BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
<asp:Button id="btnNavNext" runat="server" BorderStyle="Ridge" Text="次頁" CommandName="NEXT"
BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
<asp:Button id="btnNavLast" runat="server" BorderStyle="Ridge" Text="末頁" CommandName="LAST"
BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button><INPUT id="hdRowCount" style="WIDTH: 43px; HEIGHT: 22px" type="hidden" size="1" name="Hidden1"
runat="server"> <INPUT id="hdCurrentIndex" style="WIDTH: 48px; HEIGHT: 22px" type="hidden" size="2" value="0"
name="Hidden1" runat="server">
<asp:Label id="LabelMsg" ForeColor="Blue" Width="232px" runat="server"></asp:Label>GOTO
<asp:TextBox id="tbPage" Width="31px" runat="server"></asp:TextBox>
<asp:Label id="LabelMsg2" ForeColor="Blue" runat="server">頁</asp:Label>
<asp:Button id="btnNavGo" runat="server" BorderStyle="Ridge" Text="確定" CommandName="GO" BorderWidth="1px"
CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button></asp:panel>

WEB代码：

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Public Delegate Sub BindDataDelegate()
Public Class DataGridPage

Inherits System.Web.UI.UserControl

#Region " Web フォームデザイナで生成されたコード "

'この呼び出しは Web フォームデザイナで必要です。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

    Public binddata1 As BindDataDelegate
    Private _dg As DataGrid
    Private _autohidden As Boolean = True
    Private _pagesize As Integer = 10
    Private _itemcount As Integer = 0
    Private _dispStyle As Integer = 1
    Protected WithEvents LabelMsg As System.Web.UI.WebControls.Label
    Protected WithEvents btnNavFirst As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavPrevious As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavNext As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavLast As System.Web.UI.WebControls.Button
    Protected WithEvents tbPage As System.Web.UI.WebControls.TextBox
    Protected WithEvents LabelMsg2 As System.Web.UI.WebControls.Label
    Protected WithEvents btnNavGo As System.Web.UI.WebControls.Button
    Protected WithEvents divPanel As System.Web.UI.WebControls.Panel
    Protected WithEvents hdRowCount As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents hdCurrentIndex As System.Web.UI.HtmlControls.HtmlInputHidden

    'メモ : 次のプレースホルダ宣言は Web フォームデザイナで必要です。
    '削除および移動しないでください。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        ' CODEGEN: このメソッド呼び出しは Web フォームデザイナで必要です。
        ' コードエディタを使って変更しないでください。
        InitializeComponent()
        AddHandler Me.Load, AddressOf Page_Load

End Sub

#End Region

Public Property Target() As DataGrid

        Get
            Return _dg
        End Get
        Set(ByVal Value As DataGrid)
            _dg = Value
        End Set
    End Property
    Public Property AutoHidden() As Boolean

        Get
            Return _autohidden
        End Get
        Set(ByVal Value As Boolean)
            _autohidden = Value
        End Set
    End Property

Public Property PageSize() As Integer

        Get
            Return _pagesize
        End Get
        Set(ByVal Value As Integer)
            _pagesize = Value
        End Set
    End Property
    Public Property ItemCount() As Integer

        Get
            Return _itemcount
        End Get
        Set(ByVal Value As Integer)
            _itemcount = Value
        End Set
    End Property

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ページを初期化するユーザーコードをここに挿入します。

End Sub
Public Sub SetTarget(ByVal adg As DataGrid, ByRef aBindData1 As BindDataDelegate)

_dg = adg

binddata1 = aBindData1

        AddHandler btnNavFirst.Click, AddressOf NavigationButtonClick
        AddHandler btnNavPrevious.Click, AddressOf NavigationButtonClick
        AddHandler btnNavNext.Click, AddressOf NavigationButtonClick
        AddHandler btnNavLast.Click, AddressOf NavigationButtonClick
        AddHandler btnNavGo.Click, AddressOf NavigationButtonClick
        AddHandler _dg.DataBinding, AddressOf zxDataBinding
        binddata1()
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer, ByVal aAutoHidden As Boolean, ByVal aDispStyle As Integer)

        _pagesize = aPageSize
        _autohidden = aAutoHidden
        _dispStyle = aDispStyle

        divPanel.Visible = Not aAutoHidden
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer, ByVal aAutoHidden As Boolean)
        SetStyle(aPageSize, aAutoHidden, 1)
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer)
        SetStyle(aPageSize, True)
    End Sub
    Public Sub NavigationButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim direction As String
        direction = sender.CommandName

Select Case (direction.ToUpper())

Case ("FIRST")
_dg.CurrentPageIndex = 0

Case ("PREVIOUS")
_dg.CurrentPageIndex = Math.Max(_dg.CurrentPageIndex - 1, 0)

Case ("NEXT")
_dg.CurrentPageIndex = Math.Min(_dg.CurrentPageIndex + 1, _dg.PageCount - 1)

Case ("LAST")
_dg.CurrentPageIndex = Math.Max(_dg.PageCount - 1, 0)

            Case ("GO")
                Try
                    _dg.CurrentPageIndex = Math.Min(_dg.PageCount - 1, CInt(tbPage.Text) - 1)
                    tbPage.Text = ""
                Catch
                    tbPage.Text = ""
                End Try

End Select

binddata1()

End Sub
Public Sub zxDataBinding(ByVal sender As Object, ByVal e As System.EventArgs)

Dim newCount As Integer = 0
Dim PageCount As Integer = 0

If (_dg.DataSource Is "null") Then

            SetButtonState(0)
            Exit Sub
        End If
        If (_dg.DataSource.GetType().ToString().ToLower() = "system.data.datatable") Then

newCount = _dg.DataSource.Rows.Count

ElseIf (_dg.DataSource.GetType().ToString().ToLower() = "system.data.dataview") Then

newCount = _dg.DataSource.Count

ElseIf (_dg.DataSource.GetType().ToString().ToLower() = "system.data.dataset") Then

newCount = _dg.DataSource.Tables(0).Rows.Count
End If

        If (newCount > 0) Then
            PageCount = CInt((newCount - 1) / _pagesize)
            If (_dg.CurrentPageIndex > PageCount - 1) Then
                _dg.CurrentPageIndex = PageCount - 1
            End If
        Else

PageCount = 0
_dg.CurrentPageIndex = 0

End If

Select Case (_dispStyle)

            Case 1
                LabelMsg.Text = "共" + PageCount.ToString() + "頁第" + (_dg.CurrentPageIndex + 1).ToString() + "頁"
                LabelMsg.Text += " 總記?數：" + newCount.ToString() + ""

            Case 2
                LabelMsg.Text = (_dg.CurrentPageIndex + 1).ToString() + "/" + PageCount.ToString() + "頁"
                LabelMsg.Text += " 總數：" + newCount.ToString()

End Select

If (_autohidden) Then

divPanel.Visible = ((newCount - 1) / _pagesize > 0)

Else

divPanel.Visible = True

End If

        SetButtonState(PageCount)
    End Sub
    Public Sub SetButtonState(ByVal _PageCount As Integer)

        btnNavFirst.Enabled = (_dg.CurrentPageIndex > 0)
        btnNavPrevious.Enabled = (_dg.CurrentPageIndex > 0)
        btnNavNext.Enabled = (_dg.CurrentPageIndex < _PageCount - 1)
        btnNavLast.Enabled = (_dg.CurrentPageIndex < _PageCount - 1)
    End Sub

End Class

选择自 rickjelly2004 的 Blog

脚本无敌

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
datagrid分页问题（前后跳页）《控件版》

datagrid分页问题（前后跳页）《控件版》把它定义在用户控件中的。在。ASCX中写的。在CSDN上看了很多的DATAGRID分页问题，当然DATAGRID有自己的分页项，功能是很有限的，我也在CSDN上看了很多自己分页的代码，发现都是用C#写的，我写了一个用ASP。NET中VB语言写的。以下代码供大家参考。HTML代码：http://schemas.microsoft.com
复制链接

扫一扫

专栏目录