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 с поведением Span

    По сути, он создает столбец типа 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 Forms добавьте ссылку на этот проект и скомпилируйте
    4. При добавлении столбцов в DataGridView у вас будет возможность выбрать новый тип столбца: DataGridViewTextBoxColumnEx
    5. Ячейки этих столбцов имеют тип DataGridViewTextBoxCellEx, которые позволяют указать значения для их свойств RowSpan и ColumnSpan, как я поставил в примере
    • 2

  2. Вы можете выбрать такой вариант, как быть

    Как объединить ячейку DataGridView в Winforms

    в случае CellPaintingDataGridView

    там он проверяет, равно ли значение столбца значению предыдущей ячейки, если это так, он удаляет строку ячеек, используя

     e.AdvancedBorderStyle.Top = DataGridViewAdvancedCellBorderStyle.None;

    Есть еще один более сложный способ, использующий GDI.

    ОБЪЕДИНЕНИЕ ЯЧЕЕК В DATAGRIDVIEW

    • 1
  3. Best Answer

    Это идеальное решение моей проблемы, я делюсь им со всеми.

    В событие Load формы Form помещается следующая инструкция :

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

    В событии CellPainting DataGridView мы помещаем следующее :

    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

    В событии CellFormatting DataGridView мы помещаем следующее :

    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