datalist分页没有反应

Private   Sub   Page_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load  
                  '在此处放置初始化页的用户代码  
   
                  Pagesize   =   5  
                  Dim   sqlconn   As   New   SqlConnection(ConnallString)  
                  Dim   Conn   As   SqlConnection  
                  Conn   =   New   SqlConnection(ConnallString)  
                  Conn.Open()  
                  Dim   sql   As   String   =   "select   count(*)   as   Id   from   job"  
                  Dim   MyComm   As   SqlCommand   =   New   SqlCommand(sql,   Conn)  
                  Dim   dr   As   SqlDataReader   =   MyComm.ExecuteReader()  
   
                  Dim   intCount   As   Integer  
                  If   dr.Read()   Then  
                          intCount   =   dr("ID")  
                  Else  
                          intCount   =   0  
                  End   If  
                  dr.Close()  
                  Conn.Close()  
                  RecordNum   =   intCount  
                  If   RecordNum   Mod   Pagesize   =   0   Then  
                          Pagecount   =   RecordNum   \   Pagesize  
                  Else  
                          Pagecount   =   RecordNum   \   Pagesize   +   1  
                  End   If  
                  ViewState(Pagecount)   =   Pagecount  
                  If   Not   IsPostBack   Then  
                          CurrentPage   =   0  
                          ViewState("PageIndex")   =   0  
                          ListBind()  
                  End   If  
          End   Sub  
          Sub   listbind()  
                  Dim   StartIndex   As   Integer  
                  Dim   sqlconn   As   New   SqlConnection(ConnallString)  
                  Dim   Conn   As   SqlConnection  
                  Conn   =   New   SqlConnection(ConnallString)  
                  Conn.Open()  
                  StartIndex   =   CurrentPage   *   PageSize  
                  Dim   strSel   As   String   =   "select   *   from   job   order   by   id   desc"  
                  Dim   ds   As   DataSet   =   New   DataSet  
                  Dim   MyAdapter   As   SqlDataAdapter   =   New   SqlDataAdapter(strSel,   conn)  
                  MyAdapter.Fill(ds,   StartIndex,   PageSize,   "Result")  
                  ''读取分页数据:使用DataSet，DataAdapter.Fill(ObjDataSet,开始数,结尾数,"数据")    
                  DataList1.DataSource   =   ds.Tables("result").DefaultView  
                  DataList1.RepeatDirection   =   RepeatDirection.Horizontal  
                  DataList1.DataBind()  
                  lbnNextPage.Enabled   =   True  
                  lbnPrevPage.Enabled   =   True  
                  If   (CurrentPage   =   (PageCount   -   1))   Then   lbnNextPage.Enabled   =   False  
                  If   (CurrentPage   =   0)   Then   lbnPrevPage.Enabled   =   False  
          End   Sub  
   
          Private   Sub   lbnPrevPage_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   lbnPrevPage.Click  
                  CurrentPage   =   ViewState("PageIndex")  
                  Pagecount   =   ViewState(Pagecount)  
                  If   CurrentPage   <   (Pagecount   -   1)   Then   CurrentPage   =   +1  
                  ViewState("PageIndex")   =   CurrentPage  
                  listbind()  
          End   Sub  
   
          Private   Sub   lbnNextPage_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   lbnNextPage.Click  
                  CurrentPage   =   ViewState("PageIndex")  
                  Pagecount   =   ViewState(Pagecount)  
                  If   CurrentPage   >   0   Then   CurrentPage   -=   1  
                  ViewState("PageIndex")   =   CurrentPage  
                  listbind()  
          End   Sub  
   
  不知道这段datalist分页程序错在哪里,谁能帮我看看啊! 问题点数：50、回复次数：2Top

1 楼gjmcg（Jimmy）回复于 2006-03-17 14:19:05 得分 50

你要把ds定义在窗体设计上面这样全局共用（不需要new）  
  new就在你fill的地方  
  还有就是要把最大页，总页，当前页定义在窗体设计前面  
   
  Top

2 楼xxw365（xxw365）回复于 2006-03-19 11:22:54 得分 0

已经解决了,谢谢了!Top

相关问题

• connallstring
• recordnum
• listbind
• intcount
• currentpage
• sqlconnection
• pagecount
• conn
• dim
• pagesize

• 帖主：xxw365
• gjmcg

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载