练习.net WinForm开发（一）：自定义分页控件（2）

代码Private Sub PagerWinControl1_OnButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PagerWinControl1.OnButtonClick
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\pageing.mdb;")
conn.Open()
Dim pageCount As Integer
Dim pageNO As Integer
pageNO = PagerWinControl1.PageNO
pageCount = PagerWinControl1.PageCount
If pageNO = 1 Then
strsql = "select top " & pageCount & " * from student order by id asc"
Else
strsql = "select top " & pageCount & " * from student where id not in(select top " & pageCount * pageNO - pageCount & " id from student) order by id asc"
End If
Dim ad As New OleDbDataAdapter(strsql, conn)
Dim dt As New DataTable
ad.Fill(dt)
DataGridView1.DataSource = dt
End Sub

不费话了，直接上代码了。自定义控件。



效果图。



希望哪个大哥给我改改。我水平太差。