用Delphi实现自己的Excel报表[8]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 dong163 的 blog

执行到这里,报表生成完毕。

 

processdatasetelement

adataset := finddataset(cellvalue);

for j:=0 to adataset.recordcount - 1 do

begin

fexcelsheetobject.rows[fcurrentrow + j].delete;//将当前行删除(也就是#table.begin()#所在的行)

fexcelsheetobject.rows[fcurrentrow + j].insert;//新增行

fexcelsheetobject.rows[fcurrentrow + j].copy(fexcelsheetobject.rows[fcurrentrow + 1]);

for i:= fboundleft to fboundleft do

begin

     fieldcellstr := fexcelsheetobject.rows[fcurrentrow + j].cell[i].value; //获取数据字段元素

     fieldname := parsorfieldnamefromelement(fieldcellstr);                 //从元素中解析字段名

     fexcelsheetobject.rows[fcurrentrow + j].cell[i] := adataset.fieldbyname(fieldname).value; ////相应字段的值赋入单元格

本文关键:用Delphi实现自己的Excel报表
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top