datagrid分頁問題(前後跳頁)《控制項版》

來源:互聯網
上載者:User
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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。