vb.net DataGridView合并单元格(一列或一行)

在VB.NET中，要在DataGridView中合并单元格，您可以使用以下代码来实现:

1. 合并一列中相邻的重复单元格:

Private Sub MergeCellsInColumn(columnIndex As Integer)
    Dim previousValue As String = String.Empty
    Dim cellCount As Integer = 0

    For Each row As DataGridViewRow In dataGridView1.Rows
        If row.Cells(columnIndex).Value Is Nothing Then
            Continue For
        End If

        If previousValue = row.Cells(columnIndex).Value.ToString() Then
            cellCount += 1
            row.Cells(columnIndex).Value = Nothing
        Else
            If cellCount > 0 Then
                dataGridView1.Rows(row.Index - cellCount).Cells(columnIndex).RowSpan = cellCount + 1
            End If

            previousValue = row.Cells(columnIndex).Value.ToString()
            cellCount = 0
        End If
    Next
End Sub

' 调用方法
MergeCellsInColumn(0) ' 合并第1列

2. 合并一行中相邻的重复单元格:

Private Sub MergeCellsInRow(rowIndex As Integer)
    Dim previousValue As String = String.Empty
    Dim cellCount As Integer = 0

    For Each cell As DataGridViewCell In dataGridView1.Rows(rowIndex).Cells
        If cell.Value Is Nothing Then
            Continue For
        End If

        If previousValue = cell.Value.ToString() Then
            cellCount += 1
            cell.Value = Nothing
        Else
            If cellCount > 0 Then
                dataGridView1.Rows(rowIndex).Cells(cell.ColumnIndex - cellCount).ColumnSpan = cellCount + 1
            End If

            previousValue = cell.Value.ToString()
            cellCount = 0
        End If
    Next
End Sub

' 调用方法
MergeCellsInRow(0) ' 合并第1行

注意: 这些代码只能合并相邻的重复单元格，如果要合并非相邻的单元格，则需要编写更复杂的代码来实现。