在.NET框架中，DataGridView控件是一个功能强大的数据展示组件，但默认情况下它不允许合并单元格。本文将介绍如何通过自定义控件的方式，在DataGridView中展示额外的信息，包括合并单元格的实现方法。
DataGridView控件通常与数据源绑定，每个单元格代表记录中的一个字段。如果允许合并单元格，那么合并后的单元格将属于哪个字段呢？这可能是微软没有提供合并单元格功能的原因之一。然而，在某些情况下，可能需要展示一些额外的信息，这时可以通过弹出窗体/消息框，或者在当前窗体中“借用”一些空间来放置文本框、组合框等控件。
本自定义控件的目标是在DataGridView中展示额外的信息。它基本上使用了一个RichTextBox，该RichTextBox被插入到网格中，并根据父行的大小进行调整。父行必须有一个唯一的ID，这将是文本框的名称。然后，这个ID将被用来在正确的位置调整和定位RichTextBox。
要开始使用，必须在应用程序中包含MergedDataGridView类。构建项目后，MergedDataGridView控件将在工具箱中可用。然后，只需将其拖到窗体上。
以下是使用VB.NET定义MergedDataGridView控件属性的示例：
Me.MergedDataGridView1.DataSource = ds.Tables(0).DefaultView
Me.MergedDataGridView1.StartColumnIndex = 1
Me.MergedDataGridView1.EndColumnIndex = 7
Me.MergedDataGridView1.RowHeight = 60
Me.MergedDataGridView1.AllowUserToAddRows = False
Me.MergedDataGridView1.AllowUserToDeleteRows = False
Me.MergedDataGridView1.RowsDefaultCellStyle.BackColor = Color.White
Me.MergedDataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
Me.MergedDataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.DisplayedCells)
以下是创建图像列的示例：
Dim ImageColumn1 As New DataGridViewImageColumn
ImageColumn1.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
ImageColumn1.Image = My.Resources.DownArrow
ImageColumn1.Width = 25
Dim ImageColumn2 As New DataGridViewImageColumn
ImageColumn2.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
ImageColumn2.Image = My.Resources.Info
ImageColumn2.Width = 25
Me.MergedDataGridView1.Columns.AddRange(New DataGridViewImageColumn() {ImageColumn1, ImageColumn2})
在CellMouseClick事件中，检查用户是否点击了正确的列；如果是，则添加新行：
Dim rowPos As Integer = e.RowIndex + 1
Dim dv As DataView = Me.MergedDataGridView1.DataSource
Dim row As DataRow = dv.Table.NewRow()
dv.Table.Rows.InsertAt(row, rowPos)
Dim mergedRowText As New System.Text.StringBuilder
mergedRowText.AppendLine(Me.MergedDataGridView1("Description", e.RowIndex).Value.ToString)
mergedRowText.AppendLine(Me.MergedDataGridView1("Link", e.RowIndex).Value.ToString)
Me.MergedDataGridView1.AddMergedRow(rowPos, mergedRowText.ToString)
控件只有两个方法：AddMergedRow和RemoveMergedRow，以及三个属性。属性用于获取RichTextBox将开始、结束的列以及它的高度的指示。
AddMergedRow方法查找前一行的编号（父行），并在新行中创建一个新的RichTextBox，该编号作为名称。
Public Sub AddMergedRow(ByVal rowIndex As Integer, ByVal cellText As String)
Try
Me.SuspendLayout()
' 定义文本框的位置/大小
Dim x As Integer = Me.GetColumnDisplayRectangle(Me.StartColumnIndex, False).Left + 1
Dim y As Integer = Me.GetRowDisplayRectangle(rowIndex, False).Top
Dim w As Integer = Me.GetColumnDisplayRectangle(Me.EndColumnIndex, False).Right - x - 2
Dim h As Integer = Me.GetRowDisplayRectangle(rowIndex, False).Size.Height - 1
' 获取上一行的ID，将用于文本框的名称
Dim parentRowID As Integer = Me(0, rowIndex - 1).Value
' 创建新的文本框并放置在正确的位置
Dim rtb As New RichTextBox With rtb
.Name = parentRowID.ToString
.Text = cellText
.Multiline = True
.BorderStyle = BorderStyle.None
.ScrollBars = ScrollBars.Vertical
.ReadOnly = True
.Font = New Font(Me.DefaultCellStyle.Font, Me.DefaultCellStyle.Font.Style)
.SetBounds(x, y, w, h)
End With
Me.Controls.Add(rtb)
' 定义与行颜色相同的RichTextBox颜色
rtb.BackColor = Me(0, rowIndex).InheritedStyle.BackColor
' 定义行高度
Me.Rows(rowIndex).Height = Me.RowHeight
' 定义图像单元格的新图像（向上箭头）
Dim arrow As DataGridViewImageCell = Me(Me.ColumnCount - 2, rowIndex - 1)
arrow.Value = My.Resources.UpArrow
Catch ex As Exception
Throw New ArgumentException(ex.Message)
Finally
Me.ResumeLayout()
End Try
End Sub
RemoveMergedRow方法查找父行，并从网格中移除它。
Public Sub RemoveMergedRow(ByVal rowID As Integer)
Try
' 在DataGridView中找到控件并移除它
Dim ctrl() As Control = Me.Controls.Find(rowID.ToString, False)
If ctrl.Length = 1 Then
Me.Controls.Remove(ctrl(0))
End If
' 定义图像单元格的新图像（向下箭头）
Dim arrow As DataGridViewImageCell = Me(Me.ColumnCount - 2, Me.CurrentRow.Index)
arrow.Value = My.Resources.DownArrow
Catch ex As Exception
Throw New ArgumentException(ex.Message)
Finally
Me.ResumeLayout()
End Try
End Sub
Paint事件负责调整RichTextBox的位置和大小。由于在排序后不容易计算位置并保持父行下方的空行，在ColumnAdded事件中关闭了排序。