5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lyhoo163 2019-03-22
- 打赏
- 举报
严格意义上，它并没有合并,而是将同值单元，显示出一个 单元。
sczyq 2019-03-20
- 打赏
- 举报
void __fastcall TSheetOutput::MultiTitleMerge(TdxSpreadSheetTableView * AView, TRect ARect)
{
do
{
if (ARect.Top < ARect.Bottom)
{
String S = AView->CreateCell(ARect.Top, ARect.Left)->AsString;
if (AView->CreateCell(ARect.Top + 1, ARect.Left)->IsEmpty)
{ // 如果下一行是空, 则将该列合并到底行
AView->MergedCells->Add(TRect(ARect.Left, ARect.Top, ARect.Left, ARect.Bottom));
}
else if (ARect.Left < ARect.Right) // 如果是多列
{
int LCount = 0; // 合并列数
while (ARect.Left + LCount < ARect.Right)
if (SameText(S, AView->CreateCell(ARect.Top, ARect.Left + LCount + 1)->AsString))
LCount++;
else break;
if (LCount)
{
AView->ClearCells(TRect(ARect.Left + 1,
ARect.Top, ARect.Left + LCount, ARect.Top), false, false);
AView->MergedCells->Add(TRect(ARect.Left, ARect.Top,
ARect.Left + LCount, ARect.Top));
if (ARect.Top < ARect.Bottom)
MultiTitleMerge(AView, TRect(ARect.Left,
ARect.Top+1, ARect.Left + LCount, ARect.Bottom));
ARect.Left += LCount;
}
else MultiTitleMerge(AView, TRect(ARect.Left,
ARect.Top + 1, ARect.Left, ARect.Bottom));
}
else MultiTitleMerge(AView, TRect(ARect.Left,
ARect.Top + 1, ARect.Left, ARect.Bottom));
}
ARect.Left++;
} while (ARect.Left <= ARect.Right);
}
这个是 BCB 的, 有纵向和横向的
风子啊啊 2019-03-18
- 打赏
- 举报
这个是纵向，是上下两格的
lyhoo163 2019-03-17
- 打赏
- 举报
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;
