DataGridView实现分页显示数据

DataGridView实现分页显示数据

实现数据的分页，指定页数显示，列的冻结，显示行号，左上角表头的设置




Public Class ViewByPageClass ViewByPage




Private PAGE_VIEW_COUNT As Int32 = 10 ''页最大显示行数


Private p_Index As Int32 = 0 ''当前页数


Private p_MaxCount As Int32 = 0 ''最大页数


Private dt As DataTable = Nothing ''全部DataTable








读取数据#Region "读取数据"






Private Sub ReadData_Click()Sub ReadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadData.Click


dt = GetData()




'Me.DataGridView1.DataSource = dt




''只读


Me.DataGridView1.ReadOnly = True




''列宽自动调整


Me.DataGridView1.AutoResizeColumns()




''行表头自动调整


Me.DataGridView1.AutoResizeRows(DataGridViewAutoSizeRowsMode.AllHeaders)




''不允许手动调整行列高度


DataGridView1.AllowUserToResizeColumns = False


DataGridView1.AllowUserToResizeRows = False




''选择模式 整行选择


Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect




''滚动框 水平


Me.DataGridView1.ScrollBars = ScrollBars.Both




''左上角表头设置


Me.DataGridView1.TopLeftHeaderCell.Value = "行号"


Me.DataGridView1.TopLeftHeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter




''最大页和当前页设定


p_MaxCount = CInt((dt.Rows.Count - 1) / PAGE_VIEW_COUNT)


p_Index = 0




''设定当前页数据


SetCurrentInfo()




End Sub




#End Region






显示行号#Region "显示行号"






Private Sub DataGridView1_CellPainting()Sub DataGridView1_CellPainting(ByVal sender As Object, _


ByVal e As DataGridViewCellPaintingEventArgs) _


Handles DataGridView1.CellPainting




If e.ColumnIndex < 0 And e.RowIndex >= 0 Then




e.Paint(e.ClipBounds, DataGridViewPaintParts.All)




Dim indexRect As Rectangle = e.CellBounds


indexRect.Inflate(-2, -2)


TextRenderer.DrawText(e.Graphics, _


(e.RowIndex + 1 + p_Index * PAGE_VIEW_COUNT).ToString(), _


e.CellStyle.Font, _


indexRect, _


e.CellStyle.ForeColor, _


TextFormatFlags.Right Or TextFormatFlags.VerticalCenter)


e.Handled = True


End If


End Sub




#End Region






取得数据#Region "取得数据"






Public Function GetData()Function GetData() As DataTable




Dim dt As DataTable


Dim dr As DataRow




dt = New DataTable("TEST")


dt.Columns.Add(New DataColumn("数量1", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量2", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量3", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量4", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量5", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量6", GetType(Integer)))


dt.Columns.Add(New DataColumn("数量7", GetType(Integer)))




Dim rdm As Random = New Random




For i As Integer = 1 To 95


dr = dt.NewRow()


dr(0) = rdm.Next(100, 500)


dr(1) = rdm.Next(100, 500)


dr(2) = rdm.Next(100, 500)


dr(3) = rdm.Next(100, 500)


dr(4) = rdm.Next(100, 500)


dr(5) = rdm.Next(100, 500)


dr(6) = rdm.Next(100, 500)


dt.Rows.Add(dr)


Next




Return dt


End Function




#End Region






前次页按钮操作#Region "前次页按钮操作"






Private Sub BtnGotoPageByNo_Click()Sub BtnGotoPageByNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGotoPageByNo.Click




If dt Is Nothing Then


Exit Sub


End If




If Me.TxtPageNo.Text = "" Then


MessageBox.Show("请输入页数。", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


Exit Sub


End If




Try


p_Index = CInt(Me.TxtPageNo.Text) - 1


Catch ex As Exception


MessageBox.Show("请输入数字。", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


Exit Sub


End Try




If p_Index > p_MaxCount Then


MessageBox.Show("请在页数范围内输入页数。", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


Exit Sub


End If




SetCurrentInfo()




End Sub






Private Sub BtnGotoFirst_Click()Sub BtnGotoFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGotoFirst.Click


p_Index = 0


SetCurrentInfo()


End Sub






Private Sub BtnGotoPrev_Click()Sub BtnGotoPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGotoPrev.Click


p_Index = p_Index - 1


SetCurrentInfo()


End Sub






Private Sub BtnGotoNext_Click()Sub BtnGotoNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGotoNext.Click


p_Index = p_Index + 1


SetCurrentInfo()


End Sub






Private Sub BtnGotoLast_Click()Sub BtnGotoLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGotoLast.Click


p_Index = Me.DataGridView1.RowCount - 1


SetCurrentInfo()


End Sub




#End Region






设置当前页数据#Region "设置当前页数据"






Private Sub SetCurrentInfo()Sub SetCurrentInfo()




If dt Is Nothing Then


Exit Sub


End If




''当前页数


Me.LabelPage.Text = (p_Index + 1).ToString & "/" & (p_MaxCount + 1).ToString


Me.TxtPageNo.Text = (p_Index + 1).ToString




''取得当前页的临时DataTable


Dim dtTemp As New DataTable


dtTemp = dt.Clone


Dim i As Integer


For i = p_Index * PAGE_VIEW_COUNT To (p_Index + 1) * PAGE_VIEW_COUNT - 1


If i < dt.Rows.Count Then


Dim dr As DataRow = dtTemp.NewRow


dr.ItemArray = dt.Rows(i).ItemArray


dtTemp.Rows.Add(dr)


End If


Next




Me.DataGridView1.DataSource = dtTemp




''前两列冻结


Me.DataGridView1.Columns(1).Frozen = True




''按钮显示设定


Me.BtnGotoFirst.Enabled = (p_Index > 0)


Me.BtnGotoPrev.Enabled = (p_Index > 0)


Me.BtnGotoNext.Enabled = (p_Index < p_MaxCount)


Me.BtnGotoLast.Enabled = (p_Index < p_MaxCount)




End Sub




#End Region






Private Sub BtnClose_Click()Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click


Me.Close()


End Sub




End Class

效果如下：