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其他参考:
评论