[原创]将数据绑定至页面的两个Textbox控件上，并且可以通过按钮实现分页

    Dim conn As New SqlConnection("data source=localhost;initial catalog=pubs;user id=sa;pwd=SC")
    Dim com As New SqlDataAdapter("select au_lname,zip from authors", conn)
    Dim ds As New DataSet
    Dim dv As DataView

    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        com.Fill(ds, "table")
        dv = ds.Tables("table").DefaultView 'dv为dataview 设置为默认视图
        If Not Page.IsPostBack Then
            Session("page") = 1
        End If
        Page.DataBind()
    End Sub

    Private Sub TextBox1_DataBinding()Sub TextBox1_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DataBinding
        Dim page As Integer = CType(Session("page"), Integer)
        TextBox1.Text = dv(page)("au_lname") 'dv(0)("au_lanem") 代表视图中第1条记录的au_laname字段
        TextBox2.Text = dv(page)("zip")
    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim page As Integer = CType(Session("page"), Integer)
        page += 1
        If page > dv.Count - 1 Then
            page -= 1
        End If
        Session("page") = page
    End Sub

转载于:https://www.cnblogs.com/xzlang/archive/2005/02/02/100964.html