Home / Questions / 9748
Accepted
Jose Dario Correa
Asked: 2020-05-13 06:55:16 +0800 CST 2020-05-13 06:55:16 +0800 CST

在 DataGridView VB.NET 中合并单元格

  • 772

我的问题是，如何在 DataGridView 中组合单元格？

在我的 VB.NET 项目中，我有一个 DataGridView，它显示来自 MySQL 数据库中表的信息，如下所示：

在此处输入图像描述

我想要的是组合第一列的单元格，使其看起来像这样：

在此处输入图像描述

我该怎么做？

图片中的表格是用 Excel 制作的，只是为了举例，需要说明的是，我只显示了 2 个服务，但实际上有 30 个服务。

vb.net

3 Answers

  1. DataGridView 不提供此功能。

    在 CodeProject 中，如果您可以找到允许执行此操作的 DataGridView 的列类型的实现：

    具有跨度行为的 DataGridVewTextBoxCell

    它基本上创建了一个列类型 DataGridViewTextBoxColumnEx，其单元格的类型为 DataGridViewTextBoxCellEx。这些单元格允许您通过它们的 RowSpan 和 ColSpan 属性组合单元格。

    使用示例：

        DataGridView1.Rows.Add("Bath/Shower", "Turn 1")
    DataGridView1.Rows.Add("Bath/Shower", "Turn 2")
    DataGridView1.Rows.Add("Bath/Shower", "Turn 3")
    DataGridView1.Rows.Add("Hair Care", "Turn 1")
    DataGridView1.Rows.Add("Hair Care", "Turn 2")
    DataGridView1.Rows.Add("Hair Care", "Turn 3")
    Dim cell As DataGridViewTextBoxCellEx = CType(DataGridView1(0, 0), DataGridViewTextBoxCellEx)
    cell.RowSpan = 3
    cell = CType(DataGridView1(0, 3), DataGridViewTextBoxCellEx)
    cell.RowSpan = 3

    结果：

    在此处输入图像描述

    要使用它：

    1. 从 CodeProject 网站下载项目代码
    2. 该代码是一个包含 3 个项目的解决方案。您感兴趣的是 SpannedDataGridViewNet2。将此项目添加到您的解决方案中
    3. 在您的 Windows 窗体项目中添加对此项目的引用并编译
    4. 在 DataGridView 中添加列时，您可以选择新的列类型：DataGridViewTextBoxColumnEx
    5. 这些列的单元格属于 DataGridViewTextBoxCellEx 类型，允许您为它们的 RowSpan 和 ColumnSpan 属性指示值，正如我在示例中放置的那样
    • 2

  2. 你可以选择一个选项，比如

    如何在 Winforms 中合并 DataGridView 单元格

    在CellPaintingDataGridView的情况下

    在那里它验证列的值是否等于前一个单元格的值，如果是，它使用消除单元格的行

     e.AdvancedBorderStyle.Top = DataGridViewAdvancedCellBorderStyle.None;

    还有另一种更复杂的方式使用 GDI

    在 DATAGRIDVIEW 中合并单元格

    • 1
  3. Best Answer

    这是我的问题的完美解决方案，我分享给大家。

    以下指令放置在Form的Load事件中：

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    DataGridView1.AutoGenerateColumns = False
End Sub

    在DataGridView的CellPainting事件中，我们放置以下内容：

    Private Sub DataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
    e.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None
    If (e.RowIndex < 1 Or e.ColumnIndex < 0) Then
        Return
    End If

    If (IsTheSameCellValue(e.ColumnIndex, e.RowIndex)) Then
        e.AdvancedBorderStyle.Top = DataGridViewAdvancedCellBorderStyle.None
    Else
        e.AdvancedBorderStyle.Top = DataGridView1.AdvancedCellBorderStyle.Top
    End If
End Sub

    在DataGridView的CellFormatting事件中，我们放置以下内容：

    Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    If (e.RowIndex = 0) Then
        Return
    End If
    If (IsTheSameCellValue(e.ColumnIndex, e.RowIndex)) Then
        e.Value = ""
        e.FormattingApplied = True
    End If
End Sub

    另外我们需要创建一个函数：

    Private Function IsTheSameCellValue(ByVal column As Integer, ByVal row As Integer) As Boolean
    Dim cell1 As DataGridViewCell = DataGridView1(column, row)
    Dim cell2 As DataGridViewCell = DataGridView1(column, row - 1)
    If (IsDBNull(cell1.Value) Or IsDBNull(cell2.Value)) Then
        Return False
    End If
    If (cell1.Value = cell2.Value) Then
        Return True
    Else
        Return False
    End If
End Function
    • 1