寻VB.net高手，在dataGridView中能够实现上下两行内容相同的单元格的合并吗？如能，怎么实现？

[hfxk1983]

请教高人VB.net在dataGridView中能够实现上下两行内容相同的单元格的合并吗？如能，怎么实现？

是winForm，不是web，实现下面的效果即可。
-------------------------------------------------------------
| 新增 | | 300 | | 武汉 | | |
----------000001 --------- 食品 -----------------------
| 变更 | | 500 | | 南京 | | |
-------------------------------------------------------------

从这个画面可以容易地看出000001这个食品的价格和产地被改变了。
求实现方式。

[hfxk1983]

再把问题说一遍，
----------------------------------------------
| 新增 | 000001 | 食品 | 300 | 武汉 |
---------------------------------------------
| 变更 | 000001 | 食 | 500 | 南京 |
----------------------------------------------
对于上面的数据，要实现：
上下两个000001合并后，只显示一个，并且居中显示，类似于excel中的单元格合并的效果。

[lgx1972]

看不懂
请提高发贴质量

[古今多少事]

换支持合并的网格控件吧，如MSFlexGrid(在NET里我不会用)。
DataGridView能不能实现合并还是个问题，好像看到过类似的帖子，你搜一下，有回答可以实现的，代码较复杂，到底可不可行，我没试过。

呵呵！

[hfxk1983]

不是表头的合并，是表中内容的合并

合并前如下，是两行：
----------------------------------------------
| 新增 | 000001 | 食品 | 300 | 武汉 |
---------------------------------------------
| 变更 | 000001 | 食品 | 500 | 南京 |
----------------------------------------------

其中有内容相同的单元格，就要合并，合并后如下：
-------------------------------------------------------------
| 新增 | | 300 | | 武汉 | | |
----------000001 --------- 食品 -----------------------
| 变更 | | 500 | | 南京 | | |
-------------------------------------------------------------

不知道可说明白了

[hfxk1983]

上面 食品 和 300/500 的前后顺序搞错了，不用理会

[lizhengnan]

UP

[jidianxueyuan]

有个第三方控件能yy什么的

[makun0624]

学习``UP

[yanlongwuhui]

帮顶

[90天内只能改一次]

js吧

[一只熊猫]

顶起来关注。

[yanlongwuhui]

参考下：http://topic.csdn.net/u/20080428/15/c77a49f4-3695-4088-b0fa-29c5ecf381ea.html

[wzuomin]

帮顶 up

[hanjs]

关注.

多行表头的gridview也没法实现吧.

[Forrest23]

看懂了,么遇到过

[hj246]

web的没问题，winForm的没试过，
帮忙顶一个

[lizhengnan]

我简单做了一个，你看一下，只实现了浏览功能，不要允许用户新加或修改记录．

Public Class Form1

Private dtb As New DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With dtb.Columns
.Add("Col1")
.Add("Col2")
End With

For i As Integer = 1 To 10
Dim drw As DataRow = dtb.NewRow

If i < 5 Then
drw("Col1") = 1
Else
drw("Col1") = i
End If

drw("Col2") = "Column" & i

dtb.Rows.Add(drw)
Next

Me.DataGridView1.DataSource = dtb

Me.DataGridView1.AutoGenerateColumns = False
End Sub

Private Sub DataGridView1_CellPainting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
If e.ColumnIndex = -1 OrElse e.RowIndex = -1 Then
Exit Sub
End If

If e.RowIndex >= DataGridView1.Rows.Count Then
Exit Sub
End If

If DataGridView1.Columns(e.ColumnIndex).Name = "Col1" Then

Dim i As Integer = e.RowIndex + 1
Dim j As Integer = e.RowIndex - 1
Dim height As Integer = e.CellBounds.Height
Dim blnMerge As Boolean = False

While j >= DataGridView1.FirstDisplayedCell.RowIndex AndAlso (dtb.Rows(e.RowIndex)("Col1") = dtb.Rows(j)("Col1"))
height += DataGridView1.RowTemplate.Height

blnMerge = True
j -= 1
End While

While i < DataGridView1.Rows.Count AndAlso (dtb.Rows(e.RowIndex)("Col1") = dtb.Rows(i)("Col1"))
height += DataGridView1.RowTemplate.Height

blnMerge = True
i += 1
End While

If blnMerge Then
e.AdvancedBorderStyle.All = DataGridViewAdvancedCellBorderStyle.None

Dim y As Integer = e.CellBounds.Y
If j < e.RowIndex - 1 Then
j += 1
Dim rec1 As Rectangle = Me.DataGridView1.GetCellDisplayRectangle(e.ColumnIndex, j, True)
y = rec1.Y
End If

Dim rec As Rectangle = New Rectangle(e.CellBounds.X, y - 1, e.CellBounds.Width - 1, height)
Dim g As Graphics = Me.DataGridView1.CreateGraphics

g.FillRectangle(Brushes.White, rec)
g.DrawRectangle(New Pen(DataGridView1.GridColor), rec)
g.DrawString(e.FormattedValue, e.CellStyle.Font, Brushes.Black, rec)
e.Handled = True
End If

Me.DataGridView1.Update()
End If
End Sub
End Class

[hfxk1983]

感谢楼上，基本上可以，但有个问题，就是在合并的单元格中点击鼠标，隐藏的内容又会出现，有什么办法防止这种现象的出现吗？

[lizhengnan]

你把编辑有效的那个选择取消．


把这个属性DataGridView1.AllowUserToResizeRows也设为ＦＡＬＳＥ
如果每一行的高度不同的话，合并的有点问题．

[lizhengnan]

不要允许用户新加或修改记录．