XtraGrid如何手动合并单元格

[阿亮亮]

虽然设置了AllowCellMerge=true，XtraGrid是自动将相近单元格内容一样的合并,但是只要某一列中两行数据相同,就合并了,有时这样不太符合要求.
如果是有如下数据
姓名 月份 工资 领用时间
张三 1 1000 2010-8-8
李四 1 800 2010-8-8
李四 2 800 2010-9-8
如果是按它自动的合并的话,会是
姓名 月份 工资 领用时间
张三 1 1000 2010-8-8
李四 合并了 800 合并了
合并了 2 合并了 2010-9-8
这是不对的,正确的应该是
姓名 月份 工资 领用时间
张三 1 1000 2010-8-8
李四 1 800 2010-8-8
合并了 2 800 2010-9-8
这个控件只有AllowCellMerge这个来控制,还有别的方法实现不?

[51Crack]

从3.1到10.1，我一直在寻找!

[51Crack]

我还想横向合并

[bryht]

以前用的时候也没解决这个
不过单元格合并就是重绘的单元格OnPaint（）函数还是什么的，你找找看吧，以前做的，都忘了，只能分享下思路了

[LemonAB]

这是 我在DevExpress中文网 看到的关于自定义合并单元格的代码，贴出了分享给大家：

C#

using DevExpress.XtraGrid.Views.Grid;
// ...
private void gridView1_CellMerge(object sender, CellMergeEventArgs e) {
if(e.Column.FieldName == "Order Date") {
GridView view = sender as GridView;
DateTime val1 = (DateTime)view.GetRowCellValue(e.RowHandle1, e.Column);
DateTime val2 = (DateTime)view.GetRowCellValue(e.RowHandle2, e.Column);
e.Merge = val1.Date == val2.Date;
e.Handled = true;
}
}
VB

Imports DevExpress.XtraGrid.Views.Grid
' ...
Private Sub GridView1_CellMerge(ByVal sender As Object, _
ByVal e As CellMergeEventArgs) Handles GridView1.CellMerge
If (e.Column.FieldName = "Order Date") Then
Dim view As GridView = CType(sender, GridView)
Dim val1 As DateTime = view.GetRowCellValue(e.RowHandle1, e.Column)
Dim val2 As DateTime = view.GetRowCellValue(e.RowHandle2, e.Column)
e.Merge = (val1.Date = val2.Date)
e.Handled = True
End If
End Sub