Private Sub gvReport_CellMerge(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.CellMergeEventArgs) Handles gvReport.CellMerge
If e.Column.FieldName = "WORKTIME" Or e.Column.FieldName = "ST" Or e.Column.FieldName = "TOTALVALUE" Or e.Column.FieldName = "MEMO" Then
If gvReport.GetRowCellValue(e.RowHandle2 - 1, "LEVEL2").ToString <> gvReport.GetRowCellValue(e.RowHandle2, "LEVEL2").ToString Then
e.Merge = False
e.Handled = True
End If
End If
If e.Column.FieldName = "DEPARTTOTALVALUE" Then '让列根据前一列的合并情况进行合并
If gvReport.GetRowCellValue(e.RowHandle2 - 1, "LEVEL1").ToString <> gvReport.GetRowCellValue(e.RowHandle2, "LEVEL1").ToString Then
e.Merge = False
e.Handled = True
End If
End If
If e.Column.FieldName = "SELECTMONTHAMOUNT" Then '让列不合并
e.Merge = False
e.Handled = True
End If
End Sub
If e.Column.FieldName = "WORKTIME" Or e.Column.FieldName = "ST" Or e.Column.FieldName = "TOTALVALUE" Or e.Column.FieldName = "MEMO" Then
If gvReport.GetRowCellValue(e.RowHandle2 - 1, "LEVEL2").ToString <> gvReport.GetRowCellValue(e.RowHandle2, "LEVEL2").ToString Then
e.Merge = False
e.Handled = True
End If
End If
If e.Column.FieldName = "DEPARTTOTALVALUE" Then '让列根据前一列的合并情况进行合并
If gvReport.GetRowCellValue(e.RowHandle2 - 1, "LEVEL1").ToString <> gvReport.GetRowCellValue(e.RowHandle2, "LEVEL1").ToString Then
e.Merge = False
e.Handled = True
End If
End If
If e.Column.FieldName = "SELECTMONTHAMOUNT" Then '让列不合并
e.Merge = False
e.Handled = True
End If
End Sub