登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

DataList分页(vb.net)  

2009-10-12 09:00:43|  分类: .NET/C# |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
curpage = CInt(Label1.Text);
            sql = "select * from test";
            constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("test/test.mdb");
            SqlConnection cn=new SqlConnection(constr);

            da = New OleDbDataAdapter(sql,cn)

            da.Fill(ds, "test")
            ps.DataSource = ds.Tables("test").DefaultView
            ps.AllowPaging = True
            ps.PageSize = 3
            ps.CurrentPageIndex = curpage - 1
            DataList1.DataSource = ps
            Label3.Text = ps.PageCount
            'DataList1.DataSource = ds.Tables("test").DefaultView
            DataList1.DataBind()

            If (curpage == 1)

            {
                Button2.Enabled = false

           }

            Else{
                Button2.Enabled = true;}
            
            If curpage = ps.PageCount Then

                Button3.Enabled = False
            Else
                Button3.Enabled = True
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        Finally
            con.Close()
        End Try

    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            Label1.Text = "1"
            TextBox1.Text = "1"
            getdata()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = CInt(Label1.Text) - 1
        getdata()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = CInt(Label1.Text) + 1
        getdata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = 1
        getdata()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.Text = CInt(Label3.Text)
        getdata()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label1.Text = CInt(TextBox1.Text)
        getdata()
    End Sub

 

asp.net其他参考:

http://www.mscto.com/dotnet/2009022457466.html

  评论这张
 
阅读(626)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018