cxgrid 单元格合并

1）cxGridDBTableViewColumn1.Options.CellMerging:=true
  2）编写代码
procedure TfrmYFCOPR01A.cxGrid1DBBandedTableView1PAB01CompareRowValuesForCellMerging(
  Sender: TcxGridColumn; ARow1: TcxGridDataRow;
  AProperties1: TcxCustomEditProperties; const AValue1: Variant;
  ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
  const AValue2: Variant; var AAreEqual: Boolean);
begin
  inherited;
  if (ARow1.Values[0] = ARow2.Values[0]) AND (ARow1.Values[1] = ARow2.Values[1]) then
    AAreEqual := True
  else
  AAreEqual := False;
end;

posted on 2014-07-21 20:52 martian6125 阅读(551) 评论(1) 编辑收藏举报