zoukankan      html  css  js  c++  java
  • 嵌套子表(dx),如何根据从表合计数显示主表记录的颜色

    假设用dx已经构建好m/d了,主表不需要更新。
    1、在master中有一字段mysum,增加一个对照字段如ctrl_Field,其初始是detail的合计数
    2、master根据mysum和ctrl_Field的值对照改变该记录颜色。
    procedure TFormBase_PayPlan.cxgrdbtblvwGrid1DBTableView_TargetCustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    var
      a_sum,b_sum : Currency;
    begin
      if VarIsNull(AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1is_sum.Index]) then
       a_sum := 0
     else
       a_sum := StrToFloat(AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1is_sum.Index]);
    
        if VarIsNull(AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1isd_sum_total.Index]) then
       b_sum := 0
     else
       b_sum := StrToFloat(AViewInfo.GridRecord.Values[cxgrdbclmnGrid1DBTableView1isd_sum_total.Index]);
    
      if   a_sum  < b_sum  then
      ACanvas.Canvas.Font.Color:= clRed;//clActiveCaption ?????????????????
    
    end;

    3、在修改数据事件中做修改ctrl_Field的处理如下,目的是修改ctrl_Field在grid中的值:

                        // 显示控制
                        i := cxgrdbtblvwGrid1DBTableView_Target.DataController.FocusedRowIndex;
                        j := cxgrdbclmnGrid1DBTableView1isd_sum_total.Index;
                        if VarIsNull(cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j]) then
                           cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j] := cxcrncydt_Sum.Value
                        else
                           cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j] := cxcrncydt_Sum.Value +
                              cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j];//增加处理
    
    { cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j] := cxcrncydt_Sum.Value +
                              cxgrdbtblvwGrid1DBTableView_Target.DataController.Values[i,j] - ctrl_PaySTDSun;//修改的处理}
                        //end of 显示控制
  • 相关阅读:
    vue项目搭建过程2 -- 使用 vue cli 4.0 搭建 vue 项目
    vue项目搭建过程1 -- 环境搭建
    升级node.js版本
    git的初步了解
    期末总结
    四则运算的封装
    用户故事
    0~10的随机整数运算
    创业近一年在博客园总结一下,希望给来者一点借鉴
    PV与并发之间换算的算法换算公式
  • 原文地址:https://www.cnblogs.com/usegear/p/2612356.html
Copyright © 2011-2022 走看看