zoukankan      html  css  js  c++  java
  • 动态生成TcxGridDBTableView的列及页脚的合计栏

    var
     i   : Integer;
     cl  : TcxGridDBColumn;
    begin
     Screen.Cursor :=  crHourGlass;
     cxtvMaster.BeginUpdate;
     try
       cxtvMaster.ClearItems;
       cxtvMaster.DataController.Summary.FooterSummaryItems.Clear;
       for i := 0 to cxtvMaster.DataController.DataSet.FieldCount - 1 do
       begin
         cl  :=  cxtvMaster.CreateColumn;
         cl.DataBinding.FieldName :=
             cxtvMaster.DataController.DataSet.Fields[i].FieldName;
         if cxtvMaster.DataController.DataSet.Fields[i] is TNumericField then
         begin
           TNumericField(cxtvMaster.DataController.DataSet.Fields[i])
               .DisplayFormat  :=  ‘#,##0.00‘;
           cl.Width := 80;
           with TcxGridDBTableSummaryItem(
               cxtvMaster.DataController.Summary.FooterSummaryItems.Add) do
           begin
             Column  :=  cl;
             FieldName :=  cl.DataBinding.FieldName;
             Format  :=  ‘#,##0.00‘;
             Kind  :=  skSum;
           end;
         end
         else if cxtvMaster.DataController.DataSet.Fields[i] is TStringField then
           cl.Width := 100
         else
           cl.Width := 80;
         cl.HeaderAlignmentHorz :=  taCenter;
       end;  //if
     finally
       cxtvMaster.EndUpdate;
       Screen.Cursor := crDefault;
     end;
    end;

  • 相关阅读:
    ivew-admin 导入excel
    ivew Upload 上传时附带的额外参数
    工厂方法模式
    简单工厂模式
    webpack (1)
    商品格子
    合同签名
    展示图片数组
    使用egg.js和egg-sequelize连接mysql
    egg 连接mysql 在mysql 插入数据
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631260.html
Copyright © 2011-2022 走看看