vb.net中dataGridView的单元格的合并

对于下面的表格数据，我们经常会见到，

20090601 00001 100 abc 1 sumisu

20080601 00001 120 abc 1 yasio

20070601 00001 150 def 1 toms

20050601 00001 190 efg 1 arabama

但有时候我们希望将同一列中内容相同的单元格合并，变成下面这样：

20090601	00001	100	abc	1	sumisu
20080601		120	abc		yasio
20070601		150	def		toms
20050601		190	efg		arabama

那么该如何实现呢？
在网上调查了很多方法，也请教了很多人，虽然有一些解决方法，但都不是最理想的。
偶尔下载到一个例子，很漂亮地实现了这个功能，不过是C#的，于是我花了不少时间，终于将她用VB.net实现了，在这里与各位分享。

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Drawing.Design

Imports System.Text

Imports System.Windows.Forms

Imports System.Collections

Imports System.Reflection

Imports System.Runtime.InteropServices

Public Class RowMergeView

Inherits DataGridView

Protected Overrides Sub OnCellPainting(ByVal e As DataGridViewCellPaintingEventArgs)

If e.RowIndex > -1 And e.ColumnIndex > -1 Then

DrawCell(e)

End If

End Sub

'/ <summary>

'/ DrawCell

'/ </summary>

'/ <param name="e"></param>

Private Sub DrawCell(ByVal e As DataGridViewCellPaintingEventArgs)

If e.CellStyle.Alignment = DataGridViewContentAlignment.NotSet Then

e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

End If

Dim gridBrush As Brush = New SolidBrush(Me.GridColor)

'Dim backBrush As SolidBrush = New SolidBrush(e.CellStyle.BackColor)

Dim backBrush As SolidBrush = New SolidBrush(Color.White)

Dim fontBrush As SolidBrush = New SolidBrush(e.CellStyle.ForeColor)

Dim cellwidth As Integer

Dim UpRows As Integer = 0

Dim DownRows As Integer = 0

Dim count As Integer = 0

If Me.MergeColumnNames.Contains(Me.Columns(e.ColumnIndex).Name) And e.RowIndex <> -1 Then

cellwidth = e.CellBounds.Width

Dim gridLinePen As Pen = New Pen(gridBrush)

Dim curValue As String = CType(e.Value, String)

IIf(curValue Is Nothing, "", e.Value.ToString().Trim())

Dim curSelected As String = CType(Me.CurrentRow.Cells(e.ColumnIndex).Value, String)

IIf(curSelected Is Nothing, "", Me.CurrentRow.Cells(e.ColumnIndex).Value.ToString().Trim())

'If Not String.IsNullOrEmpty(curValue) Then

Dim i As Integer

For i = e.RowIndex To Me.Rows.Count - 1 Step i + 1

If Me.Rows(i).Cells(e.ColumnIndex).Value.ToString().Equals(curValue) Then

DownRows = DownRows + 1

If e.RowIndex <> i Then

cellwidth = cellwidth

IIf(cellwidth < Me.Rows(i).Cells(e.ColumnIndex).Size.Width, cellwidth, Me.Rows(i).Cells(e.ColumnIndex).Size.Width)

End If

Else

Exit For

End If

Dim j As Integer

For j = e.RowIndex To 0 Step j - 1

If Me.Rows(j).Cells(e.ColumnIndex).Value.ToString().Equals(curValue) Then

UpRows = UpRows + 1

If e.RowIndex <> j Then

cellwidth = cellwidth

IIf(cellwidth < Me.Rows(j).Cells(e.ColumnIndex).Size.Width, cellwidth, Me.Rows(j).Cells(e.ColumnIndex).Size.Width)

End If

Else

Exit For

End If

count = DownRows + UpRows - 1

If count < 2 Then

Return

End If

'End If

If Me.Rows(e.RowIndex).Selected Then

backBrush.Color = e.CellStyle.SelectionBackColor

fontBrush.Color = e.CellStyle.SelectionForeColor

End If

e.Graphics.FillRectangle(backBrush, e.CellBounds)

PaintingFont(e, cellwidth, UpRows, DownRows, count)

If DownRows = 1 Then

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, e.CellBounds.Bottom - 1, e.CellBounds.Right - 1, e.CellBounds.Bottom - 1)

count = 0

End If

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right - 1, e.CellBounds.Top, e.CellBounds.Right - 1, e.CellBounds.Bottom - 1)

e.Handled = True

End If

End Sub

'/ <summary>

'/ PaintingFont

'/ </summary>

Private Sub PaintingFont(ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs, ByVal cellwidth As Integer, ByVal UpRows As Integer, ByVal DownRows As Integer, ByVal count As Integer)

Dim fontBrush As SolidBrush = New SolidBrush(e.CellStyle.ForeColor)

Dim fontheight As Integer = CType(e.Graphics.MeasureString(e.Value.ToString(), e.CellStyle.Font).Height, Integer)

Dim fontwidth As Integer = CType(e.Graphics.MeasureString(e.Value.ToString(), e.CellStyle.Font).Width, Integer)

Dim cellheight As Integer = e.CellBounds.Height

If e.CellStyle.Alignment = DataGridViewContentAlignment.BottomCenter Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, CType(e.CellBounds.X + (cellwidth - fontwidth) / 2, Single), e.CellBounds.Y + cellheight * DownRows - fontheight)

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.BottomLeft Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, e.CellBounds.Y + cellheight * DownRows - fontheight)

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.BottomRight Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, e.CellBounds.Y + cellheight * DownRows - fontheight)

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, CType(e.CellBounds.X + (cellwidth - fontwidth) / 2, Single), CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopCenter Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + CType((cellwidth - fontwidth) / 2, Single), e.CellBounds.Y - cellheight * (UpRows - 1))

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopLeft Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, e.CellBounds.Y - cellheight * (UpRows - 1))

ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopRight Then

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, e.CellBounds.Y - cellheight * (UpRows - 1))

Else

e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + CType((cellwidth - fontwidth) / 2, Single), CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))

End If

End Sub

'/ <summary>

'/ MergeColumnNames

'/ </summary>

Public Property MergeColumnNames() As List(Of String)

Get

Return _mergecolumnname

End Get

Set(ByVal Value As List(Of String))

_mergecolumnname = Value

End Set

End Property

Private _mergecolumnname As List(Of String) = New List(Of String)()

End Class

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Text

Imports System.Windows.Forms

Public Class Form1

Public Sub New()

InitializeComponent()

Dim dt As DataTable = New DataTable()

Dim i As Integer

dt.Columns.Add("1")

dt.Columns.Add("2")

dt.Columns.Add("3")

dt.Columns.Add("4")

dt.Columns.Add("5")

dt.Columns.Add("6")

dt.Rows.Add("20090601", "00001", "100", "abc", "1", "sumisu")

dt.Rows.Add("20080601", "00001", "120", "abc", "1", "yasio")

dt.Rows.Add("20070601", "00001", "150", "def", "1", "toms")

dt.Rows.Add("20050601", "00001", "190", "efg", "1", "arabama")

Me.rowMergeView1.DataSource = dt

Me.rowMergeView1.ColumnHeadersHeight = 20

Me.rowMergeView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing

For i = 1 To dt.Columns.Count

Me.rowMergeView1.MergeColumnNames.Add("Column" & i)

End Sub

End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form1

Inherits System.Windows.Forms.Form

'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。

<System.Diagnostics.DebuggerNonUserCode()> _

Protected Overrides Sub Dispose(ByVal disposing As Boolean)

Try

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

Finally

MyBase.Dispose(disposing)

End Try

End Sub

'Windows フォームデザイナで必要です。

Private components As System.ComponentModel.IContainer

'メモ: 以下のプロシージャは Windows フォームデザイナで必要です。

'Windows フォームデザイナを使用して変更できます。

'コードエディタを使って変更しないでください。

<System.Diagnostics.DebuggerStepThrough()> _

Private Sub InitializeComponent()

Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))

Me.Panel1 = New System.Windows.Forms.Panel

Me.Button1 = New System.Windows.Forms.Button

Me.rowMergeView1 = New testMearge.RowMergeView

Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn

Me.Panel1.SuspendLayout()

CType(Me.rowMergeView1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'Panel1

Me.Panel1.Controls.Add(Me.Button1)

Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom

Me.Panel1.Location = New System.Drawing.Point(0, 312)

Me.Panel1.Name = "Panel1"

Me.Panel1.Size = New System.Drawing.Size(595, 31)

Me.Panel1.TabIndex = 1

'Button1

Me.Button1.Location = New System.Drawing.Point(499, 5)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(75, 23)

Me.Button1.TabIndex = 0

Me.Button1.Text = "Button1"

Me.Button1.UseVisualStyleBackColor = True

'rowMergeView1

Me.rowMergeView1.AllowUserToAddRows = False

Me.rowMergeView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill

Me.rowMergeView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize

Me.rowMergeView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6})

Me.rowMergeView1.Dock = System.Windows.Forms.DockStyle.Fill

Me.rowMergeView1.Location = New System.Drawing.Point(0, 0)

Me.rowMergeView1.MergeColumnNames = CType(resources.GetObject("rowMergeView1.MergeColumnNames"), System.Collections.Generic.List(Of String))

Me.rowMergeView1.Name = "rowMergeView1"

Me.rowMergeView1.RowTemplate.Height = 21

Me.rowMergeView1.Size = New System.Drawing.Size(595, 343)

Me.rowMergeView1.TabIndex = 0

'Column1

Me.Column1.DataPropertyName = "1"

Me.Column1.HeaderText = "日期"

Me.Column1.Name = "Column1"

'Column2

Me.Column2.DataPropertyName = "2"

Me.Column2.HeaderText = "代码"

Me.Column2.Name = "Column2"

'Column3

Me.Column3.DataPropertyName = "3"

Me.Column3.HeaderText = "价格"

Me.Column3.Name = "Column3"

'Column4

Me.Column4.DataPropertyName = "4"

Me.Column4.HeaderText = "备注"

Me.Column4.Name = "Column4"

'Column5

Me.Column5.DataPropertyName = "5"

Me.Column5.HeaderText = "标志"

Me.Column5.Name = "Column5"

'Column6

Me.Column6.DataPropertyName = "6"

Me.Column6.HeaderText = "更新者"

Me.Column6.Name = "Column6"

'Form1

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)

Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

Me.ClientSize = New System.Drawing.Size(595, 343)

Me.Controls.Add(Me.Panel1)

Me.Controls.Add(Me.rowMergeView1)

Me.Name = "Form1"

Me.Text = "Form1"

Me.Panel1.ResumeLayout(False)

CType(Me.rowMergeView1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

Friend WithEvents rowMergeView1 As RowMergeView

Friend WithEvents Panel1 As System.Windows.Forms.Panel

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn

Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn

Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn

Friend WithEvents Column4 As System.Windows.Forms.DataGridViewTextBoxColumn

Friend WithEvents Column5 As System.Windows.Forms.DataGridViewTextBoxColumn

Friend WithEvents Column6 As System.Windows.Forms.DataGridViewTextBoxColumn

End Class

运行结果如下：

原C#代码：
/Files/xiekai-blog/DataGridView.rar

posted on 2009-06-17 12:36 小言身寸阅读(12642) 评论(18) 编辑收藏所属分类: . NET 开发

常用链接

留言簿(4)

随笔分类

随笔档案

文章分类

文章档案

相册

ebook_download

Favorite Blog

Friend's Blog

musics

Others

最新评论

阅读排行榜

评论排行榜


只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻 Chat2DB C++博客博问
相关文章: vb.net中dataGridView行号的描画 vb.net中dataGridView的单元格的合并 .NET C# 如何将光标置于 TextBox 控件中的文本的开头或末尾或当前位置