VS2005 自定义控件 Datagridview实现分页的源代码

VS2005 自定义控件 Datagridview实现分页的源代码 在论坛得到不少帮助，十分感谢那些无私分享源代码的兄弟，今天在别的论坛看有人求助datagridview 分页就写了一个，现在分享给大家。 首先创建一个类库项目 在自动创建的class1的代码页里复制以下代码，然后生成dll 直接托放到工具栏里使用 源代码 Public Class PageDataGridview Inherits System.Windows.Forms.DataGridView Private ds As New DataSet Private ToltalPage As Integer = 1 Private NowPage As Integer = 1 Private OnePageRow As Integer Private nowrowno As Integer = 0 Public Property PageSize() As Integer Get Return OnePageRow End Get Set(ByVal value As Integer) If value < 0 Then Exit Property End If OnePageRow = value End Set End Property Public ReadOnly Property CurrentPage() As Integer Get Return NowPage End Get End Property Public ReadOnly Property Toltal_Page() As Integer Get Return ToltalPage End Get End Property Private Sub PageDataGridview_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DataSourceChanged Dim Datagrid As DataGridView = CType(sender, DataGridView) If CType(Datagrid.DataSource, DataTable).Rows.Count > 0 Then ToltalPage = 1 NowPage = 1 If PageSize = 0 Then Exit Sub End If Dim table As DataTable = CType(Datagrid.DataSource, DataTable) Dim tol As Integer = table.Rows.Count Dim temptolpage As Integer = CInt(Int(tol / PageSize)) If temptolpage * PageSize >= tol Then ToltalPage = temptolpage Else ToltalPage = temptolpage + 1 End If nowrowno = 0 ds.Tables.Clear() For tbcount As Integer = 0 To ToltalPage - 1 Dim temptable As New DataTable For i As Integer = 0 To CType(Datagrid.DataSource, DataTable).Columns.Count - 1 Dim col As New DataColumn col.ColumnName = CType(Datagrid.DataSource, DataTable).Columns(i).ColumnName temptable.Columns.Add(col) Next For s As Integer = 1 To PageSize If nowrowno = CType(Datagrid.DataSource, DataTable).Rows.Count Then Exit For End If temptable.ImportRow(CType(Datagrid.DataSource, DataTable).Rows(nowrowno)) nowrowno += 1 Next ds.Tables.Add(temptable) Next If ds.Tables.Count > 0 Then CType(Datagrid.DataSource, DataTable).Rows.Clear() For n As Integer = 0 To PageSize - 1 CType(Datagrid.DataSource, DataTable).ImportRow(ds.Tables(0).Rows(n)) Next End If End If End Sub Public Sub ToNext() If Me.DataSource Is Nothing Then Exit Sub End If If NowPage = ToltalPage Then MsgBox("已经到最后一页") Else CType(Me.DataSource, DataTable).Rows.Clear() For i As Integer = 0 To ds.Tables(NowPage).Rows.Count - 1 CType(Me.DataSource, DataTable).ImportRow(ds.Tables(NowPage).Rows(i)) Next NowPage += 1 End If End Sub Public Sub ToUp() If Me.DataSource Is Nothing Then Exit Sub End If If NowPage = 1 Then MsgBox("已经到第一页") Else CType(Me.DataSource, DataTable).Rows.Clear() For i As Integer = 0 To ds.Tables(NowPage - 2).Rows.Count - 1 CType(Me.DataSource, DataTable).ImportRow(ds.Tables(NowPage - 2).Rows(i)) Next NowPage -= 1 End If End Sub Public Sub ToFirst() If Me.DataSource Is Nothing Then Exit Sub End If If NowPage = 1 Then MsgBox("已经到第一页") Else CType(Me.DataSource, DataTable).Rows.Clear() For i As Integer = 0 To ds.Tables(0).Rows.Count - 1 CType(Me.DataSource, DataTable).ImportRow(ds.Tables(0).Rows(i)) Next NowPage = 1 End If End Sub Public Sub ToLast() If Me.DataSource Is Nothing Then Exit Sub End If If NowPage = ToltalPage Then MsgBox("已经到最后一页") Else CType(Me.DataSource, DataTable).Rows.Clear() For i As Integer = 0 To ds.Tables(ToltalPage - 1).Rows.Count - 1 CType(Me.DataSource, DataTable).ImportRow(ds.Tables(ToltalPage - 1).Rows(i)) Next NowPage = ToltalPage End If End Sub End Class