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

news/2024/9/19 6:21:14
 在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>
<%@ Control Language="vb" AutoEventWireup="false" Codebehind="DataGridPage.ascx.vb" Inherits="datagridfenye.DataGridPage" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>

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


http://lihuaxi.xjx100.cn/news/226075.html

相关文章

在对话框中应用CScrollView显示图像

在对话框中应用CScrollView显示图像

1、用vs2008创建一个基于对话框的工程DialogView&#xff1b; 2、添加一个新类CMyDocument&#xff0c;基类为CDocument&#xff1b; 3、添加一个新类CMyView&#xff0c;基类为CScrollView&#xff1b; 4、修改CMyDocument的头文件&#xff1a; #pragma once // CMyDocument …
阅读更多...
升级Jekyll 3.0

升级Jekyll 3.0

每一次的升级都得又一次折腾一次&#xff0c;jekyll也不例外 从jekyll 2.5.2 升级为jekyll 3.0.1 错误一: jekyll 3.0.1 | Error: Permission denied - bind(2) for 127.0.0.1:4000 端口被占有&#xff0c;打开_config.yml 在最后加上一行 port: 5001 (其它也可)问题解决 错误…
阅读更多...
java 跨年 周计算公式_如何跨年计算 两日期之间相隔的周数 with java8 time API

java 跨年 周计算公式_如何跨年计算 两日期之间相隔的周数 with java8 time API

2016年9月版 分割线之前版本的我太simple了...最近再去研究了一下Java8的新时间API&#xff0c;发现更有简单的方式去处理LocalDate localDate1 LocalDate.parse("2015-12-01");LocalDate localDate2 LocalDate.parse("2016-01-15");System.out.println(…
阅读更多...
DataGrid基于Access的快速分页法

DataGrid基于Access的快速分页法

DataGrid基于Access的快速分页法撰文/ 黎波DataGrid是一个功能非常强大的ASP.NET Web服务器端控件&#xff0c;它除了能够方便地按各种方式格式化显示表格中的数据&#xff0c;还可以对表格中的数据进行动态的排序、编辑和分页。使Web开发人员从繁琐的代码中解放。实现DataGrid…
阅读更多...
vs2008中，在OCX控件中应用doc/view基本步骤

vs2008中，在OCX控件中应用doc/view基本步骤

1、利用向导创建一个MFC ActiveX Control控件CMyOCX&#xff1b; 2、在工程中加入ActivDoc头文件和执行文件&#xff1b; class CActiveXDocTemplate : public CSingleDocTemplate { enum { IDR_NOTUSED 0x7FFF }; CWnd* m_pParentWnd; CFrameWnd* m_pFrameWnd; C…
阅读更多...
学习dubbo框架的问题

学习dubbo框架的问题

InputStream &#xff1a; 是所有字节输入流的超类&#xff0c;一般使用它的子类&#xff1a;FileInputStream等&#xff0c;它能输出字节流&#xff1b;InputStreamReader &#xff1a; 是字节流与字符流之间的桥梁&#xff0c;能将字节流输出为字符流&#xff0c;并且能为字节…
阅读更多...
lua java 性能比较_Lua coroutine vs Java wait/notify

lua java 性能比较_Lua coroutine vs Java wait/notify

在上文Lua coroutine 不一样的多线程编程思路中想到coroutine的运行机制跟Java中的wait/notify很相似&#xff0c;所以写了一个简单程序比较一下。源代码Lua codeco coroutine.create(function(loops)for i 1, loops docoroutine.yield()endend)local x os.clock()local loo…
阅读更多...
DataGrid连接Access的快速分页法（1）——需求与现状

DataGrid连接Access的快速分页法（1）——需求与现状

作者&#xff1a;黎波一、需求分析 DataGrid是一个功能强大的ASP.NET Web服务器端控件&#xff0c;它除了能够按各种方式格式化显示数据&#xff0c;还可以对数据进行动态的排序、编辑和分页。大大减轻了广大Web程序员的工作量。实现DataGrid的分页功能一直是很多入门者感到棘手…
阅读更多...
最新文章

Copyright @ 2022~2023