Delphi CxGrid 汇总（1）

最新推荐文章于 2020-10-21 12:49:13 发布

落幕年代

最新推荐文章于 2020-10-21 12:49:13 发布

阅读量2.8k

点赞数

分类专栏： Delphi VCL组件开发与应用文章标签： delphi CxGrid

本文链接：https://blog.csdn.net/lailai186/article/details/8824724

版权

这篇博客总结了Delphi中使用CxGrid组件的各种技巧，包括统计功能、过滤下拉箭头的去除、小组件的自定义显示、主从表关系的设置以及数据导入导出到Excel、HTML等格式的操作方法。

摘要由CSDN通过智能技术生成

delphi中cxGrid使用汇总（一）（转）

1. 去掉cxGrid中台头的Box
解决：在tableview1的ptionsview的groupbybox=false;

2．统计功能
解决：(1) tableview
1. tableview1的optionsviewfooter=ture
2.然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum
在Footer的第一列显示[合计:]
加一个Summary项,Column设为Grid的第一列,Kind设为skNone
在该Summary项的OnGetText事件中,输入:
procedure   TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(
      Sender:   TcxDataSummaryItem;   const   AValue:   Variant;   AIsFooter:   Boolean;
      var   AText:   String);
begin
      AText   :=   '合计:';
end;

      (2) 按条件汇总:
在TableView的DataController->Summary->FooterSummary->OnSummary事件中,输入:
procedure   TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary(
      ASender:   TcxDataSummaryItems;   Arguments:   TcxSummaryEventArguments;
      var   OutArguments:   TcxSummaryEventOutArguments);
begin
      //得到字段名   TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName;
      if (ASender.DataController.Values[Arguments.RecordIndex,   tvExpenseLevel.Index]   >   1)       //只统计Level列=1的值
          and (TcxDBDataSummaryItem(Arguments.SummaryItem).Kind   =   skSum)   then
          OutArguments.Value   :=   0;