datagrid分页《非控件版》

原创 2004年03月24日 10:08:00

首先对我之前的发表的那篇补充一下:当你在你的建立的工程中要用到我做的那个用户控件的话:声明 Protected DataGridPage1 As DataGridPage,前是你拖进来的控件名,后是你定义用户控件。然后在你代码中要用你的控件就写上:

DataGridPage1.SetTarget(MyDataGrid, New BindDataDelegate(AddressOf binddata))
DataGridPage1.SetStyle(10, False)

下划线部分是你自己写的一个绑定之类的涵数。SUB,FUNCTION 等。

以下是我不做成控件时的代码:

HTML:

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="fenye.aspx.vb" Inherits="datagridtitle.fenye"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>fenye</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
   <FONT face="MS UI Gothic">
    <asp:DataGrid id="MyDataGrid" style="Z-INDEX: 101; LEFT: 0px; POSITION: absolute; TOP: 112px"
     runat="server" Width="744px" Height="224px" AllowPaging="True">
     <PagerStyle Visible="False"></PagerStyle>
    </asp:DataGrid>
    <asp:LinkButton id="LinkButton1" style="Z-INDEX: 102; LEFT: 8px; POSITION: absolute; TOP: 96px"
     runat="server" Width="48px" Height="8px">第一頁</asp:LinkButton>
    <asp:LinkButton id="LinkButton2" style="Z-INDEX: 103; LEFT: 64px; POSITION: absolute; TOP: 96px"
     runat="server" Width="56px">前一頁</asp:LinkButton>
    <asp:LinkButton id="LinkButton3" style="Z-INDEX: 104; LEFT: 120px; POSITION: absolute; TOP: 96px"
     runat="server" Width="48px">後一頁</asp:LinkButton>
    <asp:LinkButton id="LinkButton4" style="Z-INDEX: 105; LEFT: 176px; POSITION: absolute; TOP: 96px"
     runat="server" Width="80px">最後一頁</asp:LinkButton>
    <asp:Label id="Label1" style="Z-INDEX: 106; LEFT: 552px; POSITION: absolute; TOP: 80px" runat="server"
     Width="56px">跳轉到:</asp:Label>
    <asp:TextBox id="txtGoPage" style="Z-INDEX: 107; LEFT: 624px; POSITION: absolute; TOP: 80px"
     runat="server" Width="48px" Height="24px"></asp:TextBox>
    <asp:Button id="btnGo" style="Z-INDEX: 108; LEFT: 680px; POSITION: absolute; TOP: 80px" runat="server"
     Height="24px" Width="56px" Text="Button"></asp:Button>
    <asp:Label id="lblCurrentIndex" style="Z-INDEX: 109; LEFT: 296px; POSITION: absolute; TOP: 88px"
     runat="server" Height="24px" Width="120px">Label</asp:Label>
    <asp:Label id="lblPageCount" style="Z-INDEX: 110; LEFT: 424px; POSITION: absolute; TOP: 88px"
     runat="server" Width="112px">Label</asp:Label></FONT>
  </form>
 </body>
</HTML>

WEB代码:

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

            ViewState("strSort") = "orderid"

            MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

            MyDataGrid.DataBind()
            ShowStatsPage()
            'Call orderbind()
        End If
    End Sub
    Private Function GetDv(ByVal strSort As String) As DataView

 

        Dim dv As DataView

        Dim CN As New SqlConnection

        Try

 

            CN.ConnectionString = "data source=yangchangquan;initial catalog=Northwind;persist security info=False;user id=sa;Password=pass;"

            CN.Open()

 

            Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from orders", CN)

            Dim ds As New DataSet

            adp.Fill(ds)


           
            dv = ds.Tables(0).DefaultView

        Catch ex As Exception

#If DEBUG Then

            Session("Error") = ex.ToString()

            Response.Redirect("../error.aspx")

#End If

        Finally

            '???接

            CN.Close()

        End Try

        '排序

        dv.Sort = strSort

        Return dv

    End Function

 


    Private Sub MyDataGrid_SortCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs)
        MyDataGrid.CurrentPageIndex = 0

        '得到排序的列

        ViewState("strSort") = e.SortExpression.ToString()

        MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

        MyDataGrid.DataBind()

        ShowStatsPage()
    End Sub

 


    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        Dim pageI As Integer
        If (txtGoPage.Text <> "") Then
            pageI = CInt(Trim(txtGoPage.Text)) - 1
            If (pageI >= 0 And pageI < (MyDataGrid.PageCount)) Then
                MyDataGrid.CurrentPageIndex = pageI
            End If
        End If
        ViewState("strSort") = "orderid"

        MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

        MyDataGrid.DataBind()
        ShowStatsPage()
    End Sub

Private Sub ShowStatsPage()
        lblCurrentIndex.Text = "[<font color='blue'>當前頁為:" & (MyDataGrid.CurrentPageIndex + 1) & "頁</font>]"
        lblPageCount.Text = "[<font color='blue'>共:" & MyDataGrid.PageCount & "頁</font>]"

    End Sub

 Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        MyDataGrid.CurrentPageIndex = 0
        ViewState("strSort") = "orderid"

        MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

        MyDataGrid.DataBind()
        ShowStatsPage()
    End Sub

    Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
        ViewState("strSort") = "orderid"

        MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

        MyDataGrid.DataBind()
        ShowStatsPage()
    End Sub

    Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        If (MyDataGrid.CurrentPageIndex > 0) Then
            MyDataGrid.CurrentPageIndex = MyDataGrid.CurrentPageIndex - 1
            ViewState("strSort") = "orderid"

            MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

            MyDataGrid.DataBind()
            ShowStatsPage()
        End If
    End Sub

    Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
        If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
            MyDataGrid.CurrentPageIndex = MyDataGrid.CurrentPageIndex + 1
            ViewState("strSort") = "orderid"

            MyDataGrid.DataSource = GetDv(ViewState("strSort").ToString())

            MyDataGrid.DataBind()
            ShowStatsPage()
        End If
    End Sub

完成;

DataGrid分页《非控件版》

DataGrid分页《非控件版》首先对我之前的发表的那篇补充一下:当你在你的建立的工程中要用到我做的那个用户控件的话:声明 Protected DataGridPage1 As DataGridPag...
  • heimaoxiaozi
  • heimaoxiaozi
  • 2007年09月06日 15:38
  • 623

datagrid分页《非控件版》(日语版)

 首先对我之前的发表的那篇补充一下:当你在你的建立的工程中要用到我做的那个用户控件的话:声明 Protected DataGridPage1 As DataGridPage,前是你拖进来的控件名,后是...
  • xwqjamky
  • xwqjamky
  • 2005年10月14日 08:52
  • 465

如何在DataGrid 控件中实现自定义分页操作

   在一般情况下,DataGrid控件每次翻页操作时,都会将数据源中的数据重新调用依次,当数据源中的数据比较多的时候,这样就会浪费系统的资源和降低程序执行的效率,解决的办法就是如同标题所说,依靠自定...
  • stone0419
  • stone0419
  • 2007年10月06日 14:39
  • 790

datagrid自定义分页控件

  • qq_31971935
  • qq_31971935
  • 2016年08月10日 17:32
  • 523

Flex4 DataGrid分页机制例析

首先要声明DataGrid控件 如下所示: 然后加上一些上一页,下一页,第一页,最后一页等跳转按钮 如下所示: 0?(currentPage+1):0...
  • haha_mingg
  • haha_mingg
  • 2011年11月07日 16:36
  • 2016

PHP 的DataGrid 分页

PHP的页面,表格嵌入分页条,小结: 参考:http://www.jeasyui.com/tutorial/datagrid/datagrid2.php 注意: To load data fro...
  • navystar
  • navystar
  • 2015年06月12日 14:08
  • 1115

C#中DataGrid分页,修改,更新,删除功能的实现

 第一次写博客,不知道写写什么好,就写写自己最近做的东西把。a,实现分页的存储过程:首先新件一表: UserInfo,在这里我把DataGrid 的 PerPage=10CREATE PROCEDUR...
  • nanqing
  • nanqing
  • 2007年05月10日 17:45
  • 4471

EasyUI 之 DataGrid分页组件中文显示的两种方法

在过去的这一段时间参与了高校云平台的评教系统,在系统的前端要求用MVC+Easyui,从今天开始就来给大家讲讲MVC+EasyUI的前端应用。         JQueryEasyUI:一组...
  • u010786678
  • u010786678
  • 2015年01月21日 11:48
  • 9078

EasyUI的datagrid组件实现分页

EasyUI的datagrid组件实现分页,后台为Struts2+Spring+Hibernate,利用DetachedCriteria对象进行简单的分页查询。要点: datagrid组件的参数和响应...
  • jianshen0925
  • jianshen0925
  • 2016年11月08日 14:23
  • 1308

easyui 中的datagrid分页技术实现

一些基本的知识参考官网          http://www.jeasyui.com/documentation/index.php# 这里我强调一点 datagrid会...
  • cao478208248
  • cao478208248
  • 2014年06月13日 17:59
  • 3814
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:datagrid分页《非控件版》
举报原因:
原因补充:

(最多只允许输入30个字)