DataGridView实现添加合计行并始终显示在底部.docVIP

DataGridView实现添加合计行并始终显示在底部 收藏 DataGridView中没有合适的方法来冻结底部的合计行，这里用一种比较简单的方式实现。 1. 数据部分的DataGridView，不带任何滚动框 2.合计部分的DataGridView,带有横向滚动框 3.在画面上添加一个纵向滚动框 实现的主要思路就是用合计行的横向滚动框控制两个DataGridView的横向滚动，右侧的纵向滚动狂控制数据部分的DataGridView，效果看起来就是合计行始终显示。 该例实现了合计行的自动计算，取数据的部分是用程序做的DataTable DataGridViewSumRow类 Public Class DataGridViewSumRowClass DataGridViewSumRow Private dt As DataTable Dim dtSum As DataTable Private ROW_HEIGHT As Integer = 21 行高 Private Sub DataGridViewSumRow_Load()Sub DataGridViewSumRow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load VScrollBar1.Visible = False End Sub Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dt = GetData() Me.DataGridView1.DataSource = dt Me.DataGridView1.RowTemplate.Height = ROW_HEIGHT GetSumData() 行数超过当前页显示时显示纵向滚动条 If dt.Rows.Count 13 Then VScrollBar1.Visible = True 总长度为 （所有行数 - 画面一页显示行数） × 行高 VScrollBar1.Maximum = (Me.DataGridView1.Rows.Count - Me.DataGridView1.DisplayedRowCount(False)) * ROW_HEIGHT VScrollBar1.Minimum = 0 VScrollBar1.SmallChange = 21 VScrollBar1.LargeChange = 50 End If End Sub summary 合计取得设定 /summary remarks/remarks Private Sub GetSumData()Sub GetSumData() Dim dr As DataRow dtSum = New DataTable(TEST) dtSum = dt.Clone Dim rdm As Random = New Random dr = dtSum.NewRow() dr(0) = 合计 For i As Integer = 1 To dt.Columns.Count - 1 dr(i) = dt.Compute(Sum( + dt.Columns(i).ColumnName + ), true) Next dtSum.Rows.Add(dr) Me.DataGridViewSum.DataSource = dtSum Me.DataGridViewSum.Rows(0).DefaultCellStyle.BackColor = Color.Brown Me.DataGridViewSum.ReadOnly = True Me.DataGridViewSum.SelectionMode = DataGridViewSelectionMode.FullR