p;//从DataSetList中查找特定Name的DataSet

IsTamplateElement           //判断是否为元素

IsDataSetFieldElement    //是否为数据字段元素

IsDataSetBeginElement   //是否为DataSet起始元素

IsControlTag              //是否为控制元素

IsParamElement      //是否为变量元素



事件：

OnParamElement    

OnDataSetOperationElement

OnControlElement

OnDataSetFieldElement

OnElement





写到这里大家可能已经知道我的用意了：其实这么多类成员中，但其核心就在于generateReport和ProcessDataSetElement这两个方法。

（以下代码只是描述性的脚本代码，在Delphi中不能编译）

generateReport:

------------------循环遍历单元格---------------------

FCurrentRow := iRow;

FCurrentCol := iCol;//保存当前正在处理的行列索引号

CellObj := FExcelSheetObject.Cells[iRow, iCol];//取当前单元格对象

CellValue := CellValue.Value;                       //取单元格内容

if IsTamplateElement(CellValue)                //判断是否为模板元素

begin

         if IsDataSetBeginElement(CellValue) then                 //判断是否为数据集开始元素

         begin

ProcessDataSetElement (CellValue);                 //处理数据集元素

         end;

         if IsParamElement then(CellValue) then            //判断是否为变量元素

                   CellObj.Value := FindParam(CellValue);   //查找变量值，填到当前单元格中

         if IsControlTag(CellValue) then

                   ………………….



end;





------------------遍历循环结束---------------------

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



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 := parsorFieldNameFr