delphi F1book快速填充数据

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

单单P

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

阅读量886

点赞数

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

本文链接：https://blog.csdn.net/hansoy/article/details/44936969

版权

delphi 专栏收录该内容

27 篇文章 0 订阅

订阅专栏

    //填充日期(纵向)    
    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;