数据集导出excel时进行重组

前阵子，一个同学让我分析两份数据以及一段Dephi编写的代码，他自己已初步实现了从数据集到Excel的导出，但没有实现换行以及出现了除第一列外其余列均缺少一行记录的问题。因此希望我帮忙完成将同时将一个生产单上的多个产品编码的配置情况导入到同一个excel中的算法。其初始数据（在数据集中）大体如下：

订单编号          名称                    属性编码     属性值
0000001          A基础信息           功能           单功能
0000001          A基础信息           外观           WG
0000001          B结构技术要求      内部颜色     白色
0000001          B结构技术要求      外部颜色     红色
0000001          C其他技术要求      分级          A类 
0000001          D参数信息            X              100
0000001          D参数                  Y              200

最终效果数据（在Excel中显示）：

 A基础信息          B结构技术要求      C其他技术要求 
功能：单功能        内部颜色：白色     分级：A类
外观：WG            外部颜色：红色

D参数信息
X：100
Y：200 

根据初始图以及最终效果显示， Excel以每3列换行，并实现不同名称的属性码及属性值的获取。源码如下：

   tRow :=3;----由于有Excel表头信息，因此实际从第三行起实现，存放的是名称
   iRow :=tRow+1;---设置初始的属性信息的起始行
   Max :=iRow;---获取处于同行名称中属性信息量最大值
   iCol :=1;  -----列
cdsViewCPDConfigInfl.First;---将记录集移至第一行,其中记录集是按照名称进行排序的
strcpd :=cdsViewCPDConfigInfl.fieldbyname('名称').asstring;---获取当前记录集中名称值并存放在变量中，以便后期的比较归类
         while not cdsViewCPDConfigInfl.Eof do
begin
           //在组名称相同的情况下写该组下的行数据
           if  cdsViewCPDConfigInfl.fieldbyname(名称).asstring = strcpd then
              begin
                eclapp2.WorkSheets[i].cells[tRow, iCol].value := cdsViewCPDConfigInfl.fieldbyname(名称).asstring ;//写组名
                eclapp2.WorkSheets[i].cells[iRow, iCol].value := cdsViewCPDConfigInfl.fieldbyname(属性编码).asstring +
                   ':' + cdsViewCPDConfigInfl.fieldbyname(属性值).asstring;
                INC(iRow);
              end
           else //分组换列
              begin
                if iRow>Max then
                Max :=iRow+1;          ---获取最大的行值
                if iCol>3 then          ----判断列值，当列为4，进行换行
                 begin
                     tRow :=Max;               ----换行时，首先获取最新组名的起始行
                     iCol :=0;                    ----同时将列置为0
                end; 
                iRow :=tRow+1;     ----设置新组名属性信息的起始行
                eclapp2.WorkSheets[i].cells[tRow, iCol+1].value := cdsViewCPDConfigInfl.fieldbyname('GROUPNAME').asstring ;//写组名称
                eclapp2.WorkSheets[i].cells[iRow, iCol+1].value := cdsViewCPDConfigInfl.fieldbyname('ATTR_NUMBER').asstring +
                   ':' + cdsViewCPDConfigInfl.fieldbyname('ATTR_VALUE').asstring; //写属性名跟属性值
                INC(iRow);          ----行数叠加
  INC(iCol);                         -----列数叠加
              end ;
      cdsViewCPDConfigInfl.Next; 
    end;   

注：在换列时，起初由于单纯的以为只需要进行列数叠加，使得除第一列以外的所有列均少了一行属性信息。INC（iRow）是必须的;在列达到3换行时，所以将icol设置为0，是考虑到不换行时iCol为加一。

在此附上Dephi以及VB编写的主要源码，见附件。我想关于下面的代码，也许有待于改善，请提出意见或建议

---

 

附： Dephi源码； VB源码

转载于:https://www.cnblogs.com/Dana-Jing/archive/2008/12/03/1346430.html