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;

  • 相关阅读:
    vue列表排序实现中的this问题
    JavaScript:JSON 和 JS 对象
    vue项目设置每个页面的title
    webpack开发和生产两个环境的配置详解
    关于vuex的理解
    vue的路由配置
    js 的静态获取和动态获取
    7 Dockerfile指令详解 && VOLUME 指令
    HAProxy负载均衡保持客户端和服务器Session亲缘性的3种方式
    haproxy开启日志功能
  • 原文地址:https://www.cnblogs.com/martian6125/p/9631260.html
Copyright © 2011-2022 走看看