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.FullRowSelect

    End Sub

    ''' <summary>
    ''' 数据取得
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>

    Public Function GetData()Function GetData() As DataTable

        Dim dt As DataTable
        Dim dr As DataRow

        dt = New DataTable("TEST")
        dt.Columns.Add(New DataColumn("号码", GetType(String)))
        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)))
        dt.Columns.Add(New DataColumn("数量8", GetType(Integer)))
        dt.Columns.Add(New DataColumn("数量9", GetType(Integer)))

        Dim rdm As Random = New Random

        For i As Integer = 10 To 80
            dr = dt.NewRow()
            dr(0) = "00" & i.ToString
            For j As Integer = 1 To 9
                dr(j) = rdm.Next(1000, 5000)
            Next
            dt.Rows.Add(dr)
        Next

        Return dt
    End Function