delphi F1book快速填充数据

最新推荐文章于 2019-01-12 16:52:04 发布

单单P

最新推荐文章于 2019-01-12 16:52:04 发布

阅读量932

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.youkuaiyun.com/hansoy/article/details/44936969

delphi 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一段用于填写日期范围内的纵向日期及对应财务数据（本年与去年数值）的代码实现。通过循环迭代的方式，该代码能够自动填充指定日期区间的数据，适用于财务报表等场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    //填充日期(纵向)    
    rq:=dtp1.Date;    
    for i:=6 to daysbetween(dtp1.Date,dtp2.Date)+6 do             // 6是起始行号
    begin
      F1Main.TextRc[i,1]:=FormatDateTime('yyyy-mm-dd',rq);
      rq:=rq+1;
    end;

    //填充数据(纵向，本年/去年)
    for i:=6 to daysbetween(dtp1.Date,dtp2.Date)+6 do
    begin
      F1Main.NumberRc[i,2]:=query1.FieldByName('bnje').AsFloat;        //  第二列：本年
      F1Main.NumberRc[i,3]:=query1.FieldByName('qnje').AsFloat;        //  第三列：去年
      query1.Next;
    end;