DataList控件也玩分页

2016-01-29 19:34 8 1 收藏

DataList控件也玩分页,DataList控件也玩分页

【 tulaoshi.com - ASP 】

       作者:http://www.aspcn.com 飞刀
  
  众所周知,ASP.Net中给我们提供了三个数据控件--DataGrid,Repeater,DataList。在这三个控件中,DataGrid控件的功能最强大,Repeater控件最忠实于模版原样,DataList控件则兼而有之。
  
  DataGrid控件太有名了,所以以前用的讲的也很多,Repeater功能太少,没有什么好讲的。这里主要是讲一讲DataList控件。
  
  DataList控件其实功能也很强大,他支持选择、编辑,实现的方法也很简单,不过最令人头疼的就是它不像DataGrid控件一样内置了分页的功能,这么好的一个控件竟然不能分页!!!
  
  确实是一个很让人头疼的事情。
  
  不过,只是DataList没有提供内置的分页功能,但是并不表示,我们不能使用DataList控件来实现分页,既然它不给我分页功能,那只好自己动手了。
  
  下面是全部原代码,其实用到的方法和PHP中的分页差不多,只是这里用的是DataAdapter与DataSet组合,而不是PHP中的SQL语句直接搞定。
  
  (本程序在.Net Framework Beta 2下测试通过)
  
  
  <% @ Page Language="C#" %>
  <% @ Import Namespace="System.Data" %>
  <% @ Import Namespace="System.Data.OleDb" %>
  <Script Language="C#" Runat="Server">
  /*
  Create By 飞刀
  http://www.aspcn.com
  2001-7-25 01:44
  
  Support .Net Framework Beta 2
  */
  OleDbConnection MyConn;
  int PageSize,RecordCount,PageCount,CurrentPage;
  public void Page_Load(Object src,EventArgs e)
  {
  //设定PageSize
  PageSize = 10;
  
  //连接语句
  string MyConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(".")+"..DataBasedb1.mdb;";
  MyConn = new OleDbConnection(MyConnString);
  MyConn.Open();
  
  //第一次请求执行
  if(!Page.IsPostBack)
  {
  ListBind();
  CurrentPage = 0;
  ViewState["PageIndex"] = 0;
  
  //计算总共有多少记录
  RecordCount = CalculateRecord();
  lblRecordCount.Text = RecordCount.ToString();
  
  //计算总共有多少页
  PageCount = RecordCount/PageSize;
  lblPageCount.Text = PageCount.ToString();
  ViewState["PageCount"] = PageCount;
  }
  }
  //计算总共有多少条记录
  public int CalculateRecord()
  {
  int intCount;
  string strCount = "select count(*) as co from Score";
  OleDbCommand MyComm = new OleDbCommand(strCount,MyConn);
  OleDbDataReader dr = MyComm.ExecuteReader();
  if(dr.Read())
  {
  intCount = Int32.Parse(dr["co"].ToString());
  }
  else
  {
  intCount = 0;
  }
  dr.Close();
  return intCount;
  }
  
  ICollection CreateSource()
  {
  
  int StartIndex;
  
  //设定导入的起终地址
  StartIndex= CurrentPage*PageSize;
  string strSel = "select * from Score";
  DataSet ds = new DataSet();
  
  OleDbDataAdapter MyAdapter = new OleDbDataAdapter(strSel,MyConn);
  MyAdapter.Fill(ds,StartIndex,PageSize,"Score");
  
  return ds.Tables["Score"].DefaultView;
  }
  public void ListBind()
  {
  score.DataSource = CreateSource();
  score.DataBind();
  
  lbnNextPage.Enabled = true;
  lbnPrevPage.E

来源:https://www.tulaoshi.com/n/20160129/1509696.html

延伸阅读
标签: Delphi
  实践第二步——动手做 先启动Delphi6,选择File菜单下的New|Other...在New Items中选“Package”,起个好名字,把 它存好,这是封装组件的包文件。 图2:新的包从这里添加 再它的Package界面上点Add按钮,弹出的Add对话框中选New Component页面,在Ancestor type中选TLabel [QstdCtrls],ClassName为TTouchLabel, Palet...
标签: Delphi
  实践第一步——分析和设计 Delphi为我们提供的组件中,有一个Label控件,它完成了最基本的单行文本标签功能。不过它的功能实在是太有限啦,总是在那里灰不溜秋地趴着。现在我们给它增加点动态效果,让它成为一个可以在鼠标经过时改变外表的标签——TouchLabel。也就是说,在Label的基础上,我们要给它添加几个属性,使鼠标经...
标签: ASP
  <%@ Import Namespace="System.Data" % <%@ Import Namespace="System.Data.ADO" % <Html <Body BgColor="White" <H3DataList 控制元件<HR</H3 <div id=Message runat=server</div <Form runat="server" <table cellspacing=0 cellpadding=0 width="776...
标签: Delphi
  下面是我的代码: unit LxTouchLabel; interface uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics; type TTouchLabel = class(TLabel) private { Private declarations } FColor : TColor; FTouchColor : TColor; FTempColor : TColor; FTouchFont : TFont; FTempFont : TFont; isStoreT...
标签: Delphi
  Delphi是一个强大的开发工具,它有很多动人之处,其中之一就是开放性。它是一个完全开放的系统。当IDE中原有的控件不能满足我们所需时,可以添加第三方的控件。相信每一个Delphi程序员都见识过大名鼎鼎的AHM和LMD以及RxLib等第三方控件包。但这些控件包也并非完美无缺。当这些控件也不能完全满足我们时,有没有想过自己写一个来用呢...

经验教程

854

收藏

18
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部