ＸｔｒａＲｅｐｏｒｔｓ报表高级用法 ——ＤｅｖＥ×ｐｒｅｓｓ Ｆｏｒ ＶＳ．ＮＥＴ高级技巧系列（六） 孥福红 摘 要：ＸｔｒａＲｅｐｏｒｔｓ是开发的新一代适用于Ｗｉｎｄｏｗｓ．ＮＥＴ和ＡＳＰ．ＮＥＴ开发的控件。ＸｔｒａＲｅｐｏｒｔｓ 组件可以整合于Ｖｉｓｕａｌ Ｓｔｕｄｉｏ ＩＤＥ之中，带来更高的动作效率，同时，对于应用软件和网站报表 发布它具有更大的灵活性。 关键词：ＤｅｖＥｘｐｒｅｓｓ控件；ＸｔｒａＲｅｐｏｒｔｓ Ｓｕｉｔｅ高级用法；ＸｔｒａＰｉｖｏｔＧｒｉｄＣｏｎｔｒｏｌ技巧；统计分析灵活 打印：自动报表 开发环境：ＶＳ２０１０ Ｃ＃，Ａｃｃｅｓｓ，ＤｅｖＥｘｐｒｅｓｓ控件包 件、以及其他一些相关的控件，之后对ＸｒＰｉｖｏｔＧｒｉｄ控件设置 １０．２．５。 一个ＤａｔａＳｏｕｒｃｅ用于指定报表的数据来源。如图１所示。 示例软件运行环境：．Ｎｅｔｆｒａｍｅｗｏｒｋ２．０，Ｗｉｎｄｏｗｓ ＸＰ／ Ｗｉｎｄｏｗｓ２００３／Ｗｉｎｄｏｗｓ７／Ａｃｃｅｓｓ ２００３。 运行示例：解压缩。运行ＤｅｖＣｏｎｔｒｏｌｐｒａｃｔｉｃｅ．ｅｘｅ，点击 “数据挖掘分析”， “查询”之后随意拖拉字段到需要的地方， 最后点击“打印图表”按钮，即可看到报表。 ＸｔｒａＲｐｏｒｔ Ｓｕｉｔ控件包包含了许多相关的打印控件：ＢａｒＣｏｄｅ， ＣｈｅｃｋＢｏ￣Ｌａｂｅｌ Ｌｉｎｅ，ＰａｇｅＢｒｅａｋ，Ｐａｇｅｌｎｆｏ，ＰａｎｅＬ ＰｉｃｔｕｒｅＢｏｘ， ＲｉｃｈＴｅｘｔＢｏｘ，Ｔａｂｌｅ， ＺｉｐＣｏｄｅ。ＸｒＰｉｖｏｔＧｒｉｄ， ａｎｄ ＳｕｂＲｅｐｏ￣． ＸｔｒａＲｅｐｏｒｔｓ还允许在一份报表中同时引用第三方控件（图表，栅 格等等）一就像它们出现在Ｗｉｎｄｏｗｓ系统的窗体中的情形一样。 图１报表设计器 Ｇｒｉｄ控件进行字段的增加和相关属性 一般而言，当创作报表后．需要花费很多精力来排列行或 之后，需要对Ｘｐｉｖｏｔ者控件。为了创作列表报表的样式．不得不处理行和控件的形 设置，如图２所示，包括ＦｉｅｌｄＮａｍｅ（报表要显示的数据列名 状．而这些与表格并无关联。因此只能撤销掉ＸｔｒａＲｅｐｏｒｔｓ控 称），Ａｒｅａ（数据列的显示位置，包括数据列区域ＣｏｌｕｍｎＡｒｅａ， 件，而没有其他选择办法。甚至在完成了所有这些之后，不可 行区域ＲｏｗＡｒｅａ和数据区域ＤａｔａＡｒｅａ３项），Ｃａｐｔｉｏｎ（数据列 避免地有人会叫“请在左边添加更多列”，这时你不得不全部 的标题）３个属性是必须设置的。如图３所示。 重新开始。费时费力不说，而且不能满足不同用户的不同需 求，使得软件的适用性大大降低，严重损伤产品的品级。 使用ＸｔｒａＲｅｐｏｒｔｓ表格控件的高级用法来应对这种需求．就 不会发生这些情况了．因为它会带来类似于Ｗｏｒｄ表格的方式一 样，使用表格控件，无须再进行重新位置定位了。因为客户只 管随意拖拉他们需要的数据列，所见即所得。根本无需在软件 中去进行任何设定，一切都由最终的操作者来决定。这样就完 全满足了客户的需要，软件也就能游刃有余地处理客户的各种 图２ ＸｒｐｉｖｏｔＧｒｉｄ控件属性 图３字段设计器 打印需要，同时也大大减轻了开发工作的工作量，使得有更多 进行了上述的设计以后，一个交叉报表就基本完成了。 的精力和时间用来处理其他的事情。 如果客户提出任何的调整意见，比如字段顺序的调整．或 者字段名称的调整等诸如此类的问题，那么、上述的整个设计 １ 传统的手工交叉报表 开发过程就必须逐一重新来，之后再重新编译和发布程序，费 要开发一个交叉报表，通常会需要先建立一个ＸｔｒａＲｅｐｏｒｔｓ 时费力且给人一种“软件很不好用”的印象。下面的办法可以 类，并在设计界面加报表头带区、明细带区、ＸｒＰｉｖｏｔＧｒｉｄ控 避免这种情况。 蚺 一一 ………一………… …… ……………… ……………… 实用第一 智慧密集 ｈ ＾ … ＿ Ｈ Ｈ 自 … … ２ 开发思路 通过上面讲到的交叉报表开发过程．不难发现：要做一 个交叉报表，其实大致需要做这样几个步骤： （１）创建ＸｒＰｉｖｏｔＧｒｉｄ控件并设置ＤａｔａＳｏｕｃｅ属性。 （２）创建需要显示的数据列并设置显示名称、显示位置、 显示风格等属性。 （３）显示报表。 那么，是否可以用代码来自动完成这些工作呢？答案是肯 定的。 ２．１ 创建报表以及报表中常用的各个带区 这个环节相信熟悉Ｃ群开发的朋友都并不陌生．只是新建 一些类的实例并设置一些常规属性罢了。具体来说包括： 新建报表实例：ＸｔｒａＲｅｐｏｒｔ ｒｅｐ＝ｎｅｗ ＸｔｒａＲｅｐｏｒｔ ０。 设置报表的纸张类型：ｒｅｐ．ＰａｐｅｒＫｉｎｄ＝Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ． Ｐｒｉｎｔｉｎｇ．ＰａｐｅｒＫｉｎｄ．Ａ４。 是否横向打印：ｒｅｐ．Ｌａｎｄｓｃａｐｅ＝ｔｒｕｅ。 创建报表的报表头：ＲｅＤｏｒｔＨｅａｄｅｒＢａｎｄ ｒｅｐｏｒｔＨｅａｄｅｒ＝ｎｅｗ ＲｅｐｏｒｔＨｅａｄｅｒＢａｎｄ ０。 创建报表的报表尾：ＲｅｐｏｒｔＦｏｏｔｅｒＢａｎｄ ｒｅｐｏｒｔＦｏｏｔｅｒ＝ｎｅｗ ＲｅｐｏｒｔＦｏｏｔｅｒＢａｎｄ ０。 创建报表的页头：ＰａｇｅＨｅａｄｅｒＢａｎｄ ｐａｇｅＨｅａｄｅｒ＝ｎｅｗ ＰａｇｅＨｅａｄｅｒＢａｎｄ ０。 创建报表的页尾：ＰａｇｅＦｏｏｔｅｒＢａｎｄ ｐａｇｅＦｏｏｔ＝ｎｅｗ ＰａｇｅＦｏｏｔｅｒＢａｎｄ ０。 ２．２解析ＸｔｒａＰｉｖｏｔＧｒｉｄ控件的字段设置并解析成 ＤａｔａＴａｂｌｅ 要实现客户随意拖拉字段顺序。很显然报表自身是没法实 现的。因为面向用户的报表只能用于打印和预览而无法让用户 直接调整。可以在程序中设置一查询统计窗体用于数据的分析 统计．在该窗体中应用ＸｔｒａＰｉｖｏｔＧｒｉｄ控件，便于用户根据实际 的需要随时调整所需的数据以及各种字段的表现形式，当用户 需要按自己的心意打印时，只需要把用户调整好的状态打印下 来，就能实现上述的需要了。 当做好了这样的窗体以后．接下来需要做的只是打印出来 客户设置好的统计分析表格从而形成一张交叉报表即可。大体的 思路是：取得ＸｔｒａＰｉｖｏｔＧｒｉｄ控件的行字段（ＲｏｗＡｒｅａＣｏｌｕｍｎｓ），列 字段（ＤａｔａＡｒｅａｒＣｏｌｕｍｎ），形成ＤａｔａＴａｂｌｅ的列，之后，把表格 中相应的数据都作为一条记录读人到ＤａｔａＴａｂｌｅ中去，这样就构 成了一个完整的待打印的数据集。拿到这个数据集以后，就可以 按照常规的方法来打印报表了。要取得用户最终拖拉的结果，最 好的办法莫过于把ＸｔｒａＰｉｖｏｔＧｒｉｄ控件直接传递给报表构建类了。 ＸｔｒａＰｉｖｏｔＧｒｉｄ控件中显示的数据．来自于ＣｏｌｕｍｎＡｅｗａ ａｎｄ ＲｏｗＡｒｅａ的字段，因此只要从这个控件中取出符合这个条件的 ｉ５２ 妇２０ １２．撞砖０９与雏 数据，并把它们添加到ＤａｔａＴａｂｌｅ中即可。代码如下： ／／／＜ｓｕｍｍａｒｙ＞ ／／／构建数据集ＤａｔａＴａｂｌｅ，填充数据列： ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｐｉｖｏｔ”＞＜／ｐａｒａｍ＞ ｌｌＩ＜ｐａｒａｍ ｎａｍｅ＝ ｄａｔａＴａｂｌｅｌ ＞＜／ｐａｒａｍ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｖｏｉｄ ＦｉｌｌＤａｔａｓｅｔＣｏｔｕｍｎｓ（ＰｊｖＯｔＧｒｉｄＣＯｎｔｒＯＩ ｐｉｖｏｔ，ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ１） ｛ ∥注意此方法、用于添加各个列：增加ＣｏｉｕｍｎＡｅｗａ ／／ａｎｄ ＲｏｗＡｒｅａ的字段即可： ／／ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（“ＲｏｗＦｉｅｌｄｓ ，ｔｙｐｅｏｆ（ｓｔｒｉｎｇ））； ｓｔｒｉｎｇ ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ：““： Ｌｉｓｔ＜ＰｉｖＯｔＧｒｉｄＦｉｅＩｄ＞ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ ＝ ＧｅｔＦｉｅＩｄｓＩｎＡｒｅａ（ｐｊｖｏｔ，ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）；／／￣得行字段列表； ｆｏｒ（ｉｎｔ ｌ－Ｏ ｉ＜ｆｉｅｌｄｓｌｎＣｏｔｕｍｎＡｒｅａ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ 【＿】．ＴｏＳｔｒｉｎｇ０，ｔｙｐｅｏｆ（ｏ ｂｊｅｃｔ））： ｝ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ：ＧｅｔＦｉｅｌｄｓｌｎＡｒｅａ（ｐｉｖｏｔ， ＰｉｖｏｔＡｒｅａ ＣｏｌｕｍｎＡｒｅａ）；／／Ｊ￣得列字段列表 ｆｏｒ（ｉｎｔ ｉ＝Ｏ：Ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｉ＋＋） ｛ ＰｉｖＯｔＣｅｌｌＥＶｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｉ，Ｏ）： ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ ”： ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ＝：ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｛ ｆｏｒｅａｃｈ（ＰｉｖｏｔＧｒｉｄＦｉｅｌｄ ｆｉｅｌｄ ｉｎ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ） ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＋＝ｐｃｅａ．ＧｅｔＦｉｅｌｄＶａｌｕｅ （ｆｉｅｌｄ） ＴｏＳｔｒｉｎｇ０＋ Ｉ＂；／／ａｄｄ ｆｏｒｍａｔｔｉｎｇ ｉｆ ｉｔ＇ｓ ｎｅｃｅｓｓａｒｙ ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ．Ｒｅｍｏｖｅ （ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ．Ｌｅｎｇｔｈ一３，３） ，／从列字段中获取到数据列 ，／的列头信息并添加到ＤａｔａＴａｂｌｅ中。 ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ， ｔｙｐｅｏｆ（ｄｅｃｉｍａ１））： ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝““： ） ｅｌｓｅ ｛ ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ ＴｏＳｔｒｉｎｇ（）＝－－．”ＧｒａｎｄＴｏｔａｌ ） ｛ ｄａｔａＴａｂｌｅｌ。ＣｏｌｕｍｎＳ．Ａｄｄ（”合计 ，ｔｙｐｅｏｆ（ｄｅｃｉｍａ１））； ） ｅｌｓｅ ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ｛ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ． ＴｏＳｔｒｉｎｇＯ，ｔｙｐｅｏｆ（ｏｂｊｅｃｔ））； ） ｝ ｔｒｖ ｛ ／／ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ｒｅｍｏｖｅ（“ＩＤ“）： ） ｃａｔｃｈ（） ） 经过代码处理。就把ＸｒｔａＰｉｖｏｔＧｒｉｄ控件中所有的数据列组 织到了一个可操控的ＤａｔａＴａｂｌｅ中，接下来需要做的是把具体 的数据添加到Ｄａｔａｔａｂｌｅ中去。代码如下： ／／／＜ｓｕｍｍａｒｙ＞ ／，／填充数据集数据 ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｐｉｖｏｔ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｄａｔａＴａｂｌｅｌ”＞＜／Ｄａｒａｍ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｖｏｉｄ Ｆ川ＤａｔａｓｅｔＥ×ｔｒａｃｔｅｄ（ＰｉｖＯｔＧｒｉｄＣＯｎｔｒＯＩ ｐｉｖｏｔ，ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ １） （ Ｌｉｓｔ＜ｏｂｊｅｃｔ＞ｒｏｗｖａｌｕｅｓ＝ｎｅｗ Ｌｉｓｔ＜ｏｂｊｅｃｔ＞０； ｓｔｒｉｎｇ ｔｅｍｐＲｏｗＴｅｘｔ＝”“： Ｌｉｓｔ ＜ＰｉｖＯｔＧｒｉｄＦｉｅＩｄ ＞ ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ ＝ ＧｅｔＦｊｅｌｄｓＩｎＡｒｅａ ｖｏｔ，ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）； ｆｏｒ（ｉｎｔ ｉ＝Ｏ：ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ ＲｏｗＣｏｕｎｔ；ｉ＋＋） ｛ ∥注意此方法、用于取得各个ＰｉｖｏｔＧ ｒｉｄ单元格的值； ＰｉｖｏｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（０，ｉ）： ｒｏｗｖａｌｕｅｓ．Ｃｌｅａｒ（）； ／／＂￣Ｄｕ左侧行字段列表的单元格数据到ＤａｔａＴａｂｌｅ的行中： ｉｆ（ｐｃｅａ．ＲｏｗＶａｌｕｅＴｙｐｅ＝＝ＰｉｖＯｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｛ ｆｏｒｅａｃｈ（ＰｉｖＯｔＧｒ１ｄＦｉｅ｛ｄ ｉｔｅｍ ｉｎ ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ） ｔｒｖ ｛ ｉｆ（ｉｔｅｍ．ＦｉｅｌｄＮａｍｅ！＝”ＩＤ“） ｛ ｔｅｍｐＲｏｗＴｅｘｔ＝…＋ｐｃｅａ．ＧｅｔＦｉｅｌｄＶａｌｕｅ（ｉｔｅｍ）．ＴｏＳｔｒｉｎｇＯ；／／ ＋”Ｉ“；／／ａｄｄ ｆｏｒｍａｔｔｉｎｇ ｊｆ ｉｔ＇ｓ ｎｅｃｅｓｓａｒｙ ｒｏｗｖａｌｕｅｓ Ａｄｄ（ｔｅｍｐＲｏｗＴｅｘｔ）； ） ｅｌｓｅ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ ）： ） ｃａｔｃｈ／／异常只有一种可能：分组小计一栏中， ∥列名字段的值被合并无法显示，所以取不到正确的控件，这个 ／／时候赋值为空即可 ｛ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ｎｕｌ１）； ） ） ｅｌｓｅ ｛ ｔｅｍｐＲｏｗＴｅｘｔ：ｐｃｅａ．ＲｏｗＶａｌｕｅＴｙｐｅ．ＴｏＳｔｒｉｎｇ０； ｒｏｗｖａｌｕｅｓ．Ｃｌｅａｒ（）； ｆｏｒ（ｉｎｔ ａ＝Ｏ：ａ＜ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ．Ｃｏｕｎｔ；ａ＋十） ｛ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ ） ） ｝ ／／添加数据区域的单元格数据到ｄａｔａｔａｂｌｅ中去。 ｆｏｒ（ｉｎｔ ｊ＝Ｏ：ｊ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｊ＋＋） （ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｊ，ｉ）： ｉｆ（ｐｃｅａ．Ｖａｌｕｅ！＝ｎｕｌ１） ｒｏｗｖａｔｕｅｓ．Ａｄｄ（ｐｃｅａ．Ｖａｌｕｅ）： ｅｌｓｅ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ＤＢＮｕｌＩ．Ｖａｌｕｅ）； ） ｄａｔａＴａｂｌｅ１．Ｒｏｗｓ．Ａｄｄ（ｒｏｗｖａｌｕｅｓ ＴｏＡｒｒａｙ０）； ） ） 有了这些代码，就完全拿到了待打印的全部数据，接下来 需要处理的就是打印的各个数据列的宽度了。 因为要实现“所见即所得”的打印效果．所以，取得的 ＤａｔａＴａｂｌｅ各个数据列和数据完全以用户在界面上拖拉的位置 为依据进行排列的，那么，在打印到报表上的时候，依然遵从 这一规则：按照ＤａｔａＴａｂｌｅ列中每一列的顺序和宽度，依次在 报表中打印出来即可。其基本原理为：在报表中打印ＤａｔａＴａｂｌｅ 的每一列：每列的打印宽度以用户在界面上拖拉的宽度为基 数．再依据屏幕表格总宽度和报表纸张宽度的比例为系数进 行缩放，这样便实现按界面来打印报表。但这样做有一个不 足：当列数过多的时候，容易导致每一列的宽度过小，从而导 致报表很不美观。解决的办法是对于ＲｏｗＦｉｅｄＡｒｅａｒ区域（行 区域）的字段，进行宽度自适应的处理：而对于数据区域 （ＤａｔａＡｒｅａ）的字段，则指定一个固定的宽度进行打印。这样 就实现了完全的自适应打印模式了。具体实现逻辑，请参阅代 码中的方法： ｐｒｉｖａｔｅ Ｌｉｓｔ＜ｉｎｔ＞ＧｅｔＣｏｌｕｍｎｓＢｅｓｔ ＦｉｔＡｓＰｉｖｏｔＧｒｉｄＷｉｄｔｈ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐ，ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ， Ｆｏｎｔ ｆｏｎｔ，ＰｉｖＯｔＧｒｉｄＣｏｎｔｒ０Ｉ ｐｉｖｏｔ） 最后，需要做的就是在报表中新建两个表格：用于显示数据 列头文字的表格ｔａｂｌｅＩ－ｌｅａｄｅｒ和用于显示明细数据的表格 ｔａｂｌｅＤｅｔａｉｌ，然后逐一把每一列的数据添加到这两个表格中即可。 ｐｕｂｌｉｃ ｓｔａｔｉｃ ｖｏｉｄ ＡｄｄＣｅｌｌｓＴｏＴａｂｌｅｓ《ＸＲＴａｂｌｅ ｈｅａｄｅｒ， ＸＲＴａｂｌｅ ｄｅｔａｉｌ，ＤａｔａＣｏｌｕｍｎ ｄｃ，ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ，ｂｏｏＩ ｉｓＦｉｒｓｔＣｏｌｕｍｎＩｎＴａｂｌｅ） 到此为止，自动报表完全实现了。最终用户可以在软件运 行的时候，根据实际需要随意拖拉每一个数据列到需要的地方 进行统计分析，然后点击打印按钮就可以打印出一模一样的报 表。这样，就能满足相同的数据，不同用户可以随意打印自己 需要的报表．从而避免了软件开发人员需要为此重复开发多种 报表的麻烦．极大地提高了软件的灵活性，减少了程序员的劳 动强度。 ………… ……… …… …………… …… ’Ｊ … … 实用第一 智慧密集 … … … … ３ 自动交叉报表的使用样例 如图４，图５所示。 图４ 哪 无端代码的髓意鲢计分析撤袭 嚣 懈 ＃晰 黼 帆 峨 呲 鹕ｑ 辄 Ｉｊ 地 ｉ｛ “ｉ ∞ Ｊ ＊ ｉ鞴 一一…一…一一＇硪 一…………… …一…一……一卞一 而 ｛皇二 Ｅ孺…一一一………ｉ二 二二二二 二二ｚ 二 二二二 一…一………～～哺解＿二 二 ￡ 二 二二二二二 二空 凰 聒 …一’一一１一 丽 图５ 接下来。在这个界面中，拖拉更多的字段到统计表格中形 成更为复杂的统计分析数据，然后点击打印按钮查看一下自动 生成的报表的样例．如图６．图７所示。 骢 § ； ．曼 枷 骂 穗骢 嚣蟪｜ ｓ Ｉ 黑 一臻 镪髓 肇 鹊獭 ． 燃 藏 ∞ 硼 一 … ｌ ｉ ｊ； 嚣 囊一 ｉ鼍ｔ 淼 恐蒜乏ｌ 戈衙代码的随意统计分拼报袭 日 …ｌ一 ∞ 删 蚂 ｚ ｌ｛１ 』 图７ 可以看到界面中的数据，报表中也全部都打印出来了。而 实现这个，只是模拟最终用户进行了简单的拖拉而已，并没有 对程序进行一个字符的改动。 ４ 自动交叉报表类代码 ｕｓｉｎｇ Ｓｙｓｔｅｍ； ｕｓｉｎｇ Ｓｙｓｔｅｍ．Ｃｏｌｌｅｃｔｉｏｎｓ．Ｇｅｎｅｒｉｃ； ｕｓ ｉｎｇ Ｓｙｓｔｅｍ．Ｄａｔａ； ｕｓｉ‘ｎｇ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ； ｕｓ。ｉｎｇ Ｓｙｓｔｅｍ．Ｗｉｎｄｏｗｓ．ＦＯｒｍｓ： ｕｓ‘ｉｎｇ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＲｅｐｏ￣ｓ．ＵＩ； ｕｓ‘ｉｎｇ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｉｖｏｔＧｒｉｄ； ｕｓ’ｉｎｇ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＥｄｉｔｏｒｓ； ｎａｍｅｓｐａｃｅ ＤｅｖＣｏｎｔｒｏｌｐｒａｃｔｉｃｅ．ＬＦＨ．Ｆｕｎｃｔｉｏｎ ｛ ／／／＜ｓｕｍｍａｒｙ＞ ，／／报表类型 ／／／＜Ｉｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｅｎｕｍ ＲｅｐＯｒｔＧｅｎｅｒａｔＯｒ ｐｅ ｛ ＳｉｎｇｌｅＰａｇｅ， ＦｉｘｅｄＣｏｌｕｍｎＷｉｄｔｈ， ＢｅｓｔＦｉｔＣｏｌｕｍｎｓ， ＦｉｔＡｓＰｉｖｏｔＧｒｉｄ， ） ｐｕｂｌｉｃ ｃｌａｓｓ ＬＦＨ—Ｐｉｖ０ｔＲｅｐＯｒｔＧｅｎｅｒａｔＯｒ ｛ ＃ｒｅｇｉｏｎ自定义属性 ｐｒｉｖａｔｅ ＰｉｖＯｔＧｒｉｄＣＯｎｔｒＯｌ ｐｉｖｏｔ； ／／／＜ｓｕｍｍａｒｙ＞ ／／／ＰｉｖｏｔＧｒｉｄＣｏｎｔｒｏｌ控件名称 ／／／＜Ｉｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ＰｉｖｏｔＧｒｉｄＣｏｎｔｒｏｌ Ｐｉｖｏｔ ｛ ｇｅｔ｛ｒｅｔｕｒｎ ｐｉｖｏｔ；｝ ｓｅｔｆ ｐｉｖｏｔ：ｖａｌｕｅ；） ｝ ｐｒｉｖａｔｅ ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ ｋｉｎｄ＝ＲｅＤＯｒｔＧｅｎｅｒａｔＯｒ Ｔｙｐｅ．ＦｉｔＡｓＰｉｖｏｔＧｒｉｄ； ／／／＜ｓｕｍｍａｒｙ＞ ／／／ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒ＿ｒｙｐｅ．ＳｉｎｇｌｅＰａｇｅ，单行打印（无限纸张 ／／／宽度） ／／／ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒ．ｒｙｐｅ．ＦｉｘｅｄＣｏｌｕｍｎＷｉｄｔｈ固定列宽 ／／／（允许自动换行，但每一列的宽度均相等且为指定的固定值） ／／／．ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＢｅｓｔＦｉｔＣｏｌｕｍｎｓ自适应纸张宽 ／／／度（按ＰｉｖｏｔＧｒｉｄ控件运行期间的各个数据列的宽度比例在纸 ／／／张上打印） ／／／＜／ｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒｒｙｐｅ Ｋｉｎｄ ｛ ｇｅｔ｛ｒｅｔｕｒｎ ｋｉｎｄ；｝ ｓｅｔ｛ｋｉｎｄ＝ｖａｌｕｅ；） ） ｐｒｉｖａｔｅ ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ＝ｌ ００； ／／／＜ｓｕｍｍａｒｙ＞ ／／／默认每一个列的宽度 ／／／＜／ｓｕｍｍａｒｖ＞ ｐｕｂｌｉｃ ｉｎｔ ＣｏｌｕｍｎＷｉｄｔｈ ｛ ｇｅｔ｛ｒｅｔｕｒｎ ｃｏｌｕｍｎＷｉｄｔｈ；） ｓｅｔ｛ｃｏｌｕｍｎＷｉｄｔｈ＝ｖａｌｕｅ；） ） ｐｒｉｖａｔｅ ｂｏｏｌ ｒｅｐｅａｔＲｏｗＨｅａｄｅｒ＝ｔｒｕｅ； ／／／＜ｓｕｍｍａｒｙ＞ ／，／是否每一页均打印标题栏。默认ｔｒｕｅ ／／／＜Ｉｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｂｏｏｌ ＲｅｐｅａｔＲｏｗＨｅａｄｅｒ ｆ ｇｅｔ｛ｒｅｔｕｒｎ ｒｅｐｅａｔＲｏｗＨｅａｄｅｒ；） ｓｅｔ｛ｒｅｐｅａｔＲｏｗＨｅａｄｅｒ＝ｖａｌｕｅ；） ｝ ｐｒｉｖａｔｅ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｐｒｉｎｔｉｎｇ．ＰａｐｅｒＫｉｎｄ ｐａｐｅｒ＝ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｐｒｉｎｔｉｎｇ．ＰａｐｅｒＫｉｎｄ．Ａ４； ／／／＜ｓｕｍｍａｒｙ＞ ／／／纸张类型 默认Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｐｒｉｎｔｉｎｇ．ＰａｐｅｒＫｉｎｄ．Ａ４ ／／／＜／ｓｕｔ￣ｍａｒｙ＞ ｐｕｂｌｉｃ Ｓｙｓｔｅｍ Ｄｒａｗｉｎｇ．Ｐｒｉｎｔｉｎｇ．ＰａｐｅｒＫｉｎｄ Ｐａｐｅｒ ｛ ｇｅｔ｛ｒｅｔｕｒｎ ｐａｐｅｒ；｝ ｓｅｔ｛ｐａｐｅｒ＝ｖａｌｕｅ；） ） ｐｒｉｖａｔｅ ｂｏｏｌｉｓＤａｔａＣｅｌｌＢＦｉｔＣｏｌｕｍＷｉｄｔｈ＝ｆａｌｓｅ； —／／／＜ｓｕｍｍａｒｙ＞ ／／／ＦｉｔＡｓＰｉｖｏｔＧｒｉｄ模式下、ＤａｔａＣｅｌｌ列宽是否固定《若不 ，／／固定、则参与全部宽度分配，但列数较多时会换行导致表格不 ，／／美观） ／／／＜／ｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｂｏｏｌ ＩｓＤａｔａＣｅｌｌＢＦｉｔＣｏｌｕｍＷｉｄｔｈ ｛ ｇｅｔ｛ｒｅｔｕｒｎ—ｉｓＤａｔａＣｅｌｌＢＦｉｔＣｏｌｕｍＷｉｄｔｈ；） ｓｅｔ｛一ｉｓＤａｔａＣｅｌｌＢＦｉｔＣｏｌｕｍＷｉｄｔｈ：ｖａｌｕｅ；） ） ｐｒｉｖａｔｅ ｂｏｏｌ ｉｓＰａｐｅｒＬａｎｄＳｃａｐｅ＝ｔｒｕｅ； ／／／＜ｓｕｍｍａｒｙ＞ ／／／是否横向打印（ｔｒｕｅ、ｆａｌｓｅ）默认真 ／／／＜／ｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｂｏｏｌ ＩｓＰａｐｅｒＬａｎｄＳｃａｐｅ ｛ ｇｅｔ｛ｒｅｔｕｒｎ ｉｓＰａｐｅｒＬａｎｄＳｃａｐｅ；） ｓｅｔ｛ｉｓＰａｐｅｒＬａｎｄＳｃａｐｅ＝ｖａｌｕｅ；） ｝ ｐｒｉｖａｔｅ ｓｔｒｉｎｇ—ｓＲｅｐｏｒｔＴｉｔｌｅ＝“未定义报表” ／／／＜ｓｕｍｍａｒｙ＞ ／／／报表标题 ／／／＜／ｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｓｔｒｉｎｇ ＳＲｅｐｏｒｔＴｉｔｌｅ ｛ ｇｅｔ｛ｒｅｔｕｒｎ＿ｓＲｅｐｏｒｔＴｉｔｌｅ；） ｓｅｔ（一ｓＲｅｐｏｒｔＴｉｔｔｅ：ｖａｌｕｅ；Ｊ ） ｐｒｉｖａｔｅ ｓｔｒｉｎｇ—ｓＲｅｐｏｒｔＤａｔｅ＝“” ／／／＜ｓｕｍｍａｒｙ＞ ／，／报表数据起始目期（字符串：２０１１－０９－０１到２０１１～ ｍ、Ｑ一０１、 ／／／＜／ｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｓｔｒｉｎｇ ＳＲｅｐｏｒｔＤａｔｅ ｛ ｇｅｔ｛ｒｅｔｕｒｎ—ｓＲｅｐｏｒｔＤａｔｅ；） ｓｅｔ（＿ｓＲｅｐｏｒｔＤａｔｅ：ｖａｌｕｅ；ｌ ｝ ｐｒｉｖａｔｅ ｓｔｒｉｎｇｓＲｅｐＯｒｔＰｉｎｔＤａｔｅ： ‘； —／／／＜ｓｕｍｍａｒｙ ＞ ／／／报表打印日期：系统当前日期； ／／／＜ｉｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ ｓｔｒｉｎｇ ＳＲｅＤＯｒｔＰｉｎｔＤａｔｅ ｛ ｇｅｔ（ｒｅｔｕｒｎ—ｓＲｅｐｏｒｔＰｉｎｔＤａｔｅ：） ｓｅｔ ｆ—ｓＲｅｐｏｒｔＰｉｎｔＤａｔｅ：ｖａｌｕｅ；） ） ｐｒｉｖａｔｅ Ｌｉｓｔ＜ｉｎｔ＞一ｃｏｌｕｍｎｓＷｉｄｔｈ＝ｎｕｌｌ； ／／／＜ｓｕｍｍａｒｙ＞ ／／／字段宽度列表（指定每个行字段的宽度即可，不指定的 ／／，按ＣｏｌｕｍｎＷｉｄｔｈ，但若选择了全屏自适应模式ＢｅｓｔＦｉｔＣｏｌｕ ／／／ｍｎｓ、则自动计算宽度） ／／／＜ｉｓｕｍｍａｒｙ＞ ｐｕｂｌｉｃ Ｌｉｓｔ＜ｉｎｔ＞ＣｏｌｕｍｎｓＷｉｄｔｈ ｛ ｇｅｔ｛ｒｅｔｕｒｎ＿ｃｏｌｕｍｎｓＷｉｄｔｈ；） ｓｅｔ｛一ｃｏｌｕｍｎｓＷｉｄｔｈ＝ｖａｌｕｅ；） ） ＃ｅｎｄｒｅｇｉｏｎ ／／／＜ｓｕｍｍａｒｙ＞ ／，／构造报表 ／／／＜／ｓｕｍｍａｒｙ＞ ／／，＜ｒｅｔｕｍｓ＞＜／ｒｅｔｕｍｓ＞ ｐｕｂｌｉｃ ＸｔｒａＲｅｐｏｒｔ ｉｎｉｔＲｅｐ（） ｆ ＸｔｒａＲｅｐｏｒｔ ｒｅｐ＝ｎｅｗ ＸｔｒａＲｅｐｏｒｔＯ； ｒｅｐ．ＰａｐｅｒＫｉｎｄ＝Ｐａｐｅｒ；／／Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｐｒｉｎｔｉｎｇ． ／ＰａｐｅｒＫｉｎｄ．Ａ４； ｒｅｐ．Ｌａｎｄｓｃａｐｅ＝ｉｓＰａｐｅｒＬａｎｄＳｃａｐｅ；／／ｔｒｕｅ； ｒｅｐ．ＤａｔａＳｏｕｒｃｅ＝Ｆ＿ｌｌＤａｔａｓｅｔ（ＰｉｖＯｔ）：／，ＤｔＰｒｉｎｔ； ｒｅｐ．ＤａｔａＭｅｍｂｅｒ ＝ （（ＤａｔａＳｅｔ）ｒｅｐ．ＤａｔａＳｏｕｒｃｅ）． Ｔａｂｌｅｓ［Ｏ］．ＴａｂｌｅＮａｍｅ；／／ＤｔＰｒｉｎｔ．ＴａｂｌｅＮａｍｅ； ｌｎＩｔＢａｎｄｓ（ｒｅｐ） ＩｎｉｔＳｔｙｌｅｓ（ｒｅｐ）； ＩｎｉｔＤｅｔａ ＩｓＢａｓｅｄｏ九×ＲＴａｂＩｅｌｒｅｐ，Ｋｉｎｄ，ＣｏｌｕｍｎＷｉｄｔｈ， ＲｅｐｅａｔＲｏｗＨｅａｄｅｒ，Ｐｉｖｏｔ）； ｒｅｔｕｒｎ ｒｅｐ； ｝ ／／／＜ｓｕｍｍａｒｙ＞ ／／／根据传人的ＰｉｖｏｔＧｒｉｄｃｏｎｔｒｏｌ构造报表数据集 脑瓣 实用第 智慧密集 ／／／＜Ｉｓｕｍｍａ￣＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｐｉｖｏｔ ＞待打印的ＰｉｖｏｔＧ ｃｏｎｔｒｏ｝＜／ ／／／ｐａｒａｍ＞ ／／／＜ｒｅｔｕｒｎｓ＞＜／ｒｅｔｕｒｎｓ＞ ｐｕｂｌｉｃ ｓｔａｔｉｃ ＤａｔａＳｅｔ Ｆ．ＩｌＤａｔａｓｅｔ（ＰｉｖｏｔＧ ｒｊｄＣＯｎｔｒＯＩ ｐｉｖｏｔ） （ ＤａｔａＳｅｔ ｄａｔａＳｅｔｌ＝ｌＦｌｅｗ ＤａｔａＳｅｔＯ； ｄａｔａＳｅｔ１．ＤａｔａＳｅｔＮａｍｅ＝。。ＰｉｖｏｔＧｒｉｄＣｏｌｕｍｎｓ“： ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅｌ＝ｉｌＦｅｗ ＤａｔａＴａｂｌｅ０； ｄａｔａＳｅｔ１．Ｔａｂｌｅｓ．Ａｄｄ（ｄａｔａＴａｂｌｅ１）： ＦｉｌｌＤａｔａｓｅｔＣｏｌｕｍｎｓ（ｐｉｖｏｔ，ｄａｔａＴａｂｌｅ１）： ＦｉｌｌＤａｔａｓｅｔＥｘｔｒａｃｔｅｄ（ｐｉｖｏｔ，ｄａｔａＴａｂｌｅ１）： ｒｅｔｕｒｎ ｄａｔａＳｅｔｌ： ） ＃ｒｅｇｉｏｎ ＰｒｅｐａｒｉｎｇＤａｔａＳｅｔ ／／／＜ｓｕｍｍａｒｙ＞ ／／／填充数据集数据 ／／／＜／ｓｕｍｍａｗ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｐｉｖｏｔ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｄａｔａＴａｂｌｅｌ“＞＜／ｐａｒａｍ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｖｏｉｄ ＩＤａｔａｓｅｔＥｘｔｒａｃｔｅｄＩＰｉｖｏｔＧｒｉｄＣｏｎｔｒｏｌ ｐｉｖｏｔ，ＤａｔａＴａｂｔｅ ｄａｔａＴａｂｌｅ１） ｛ Ｌｉｓｔ＜ｏｂｊｅｃｔ＞ｒｏｗｖａｌｕｅｓ＝ｎｅｗ Ｌｉｓｔ＜ｏｂｊｅｃｔ＞Ｏ： ｓｔｒｉｎｇ ｔｅｍｐＲｏｗＴｅｘｔ＝ ： Ｌｉｓｔ ＜ＰｊｖｏｔＧ ｒｌｄＦｌｅｋｉ ＞ ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ ＝ ＧｅｔＦｉｅｌｄｓｌｎＡｒｅａ（ｐｉｖｏｔ，ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）； ｆｏｒ（ｉｎｔ ｊ＝Ｏ： ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＲｏｗＣｏｕｎｔ；ｉ＋＋） ｛ ，／／注意这里，改写此方法、用于添加各个列：现有方 ，／／法是组装各个字段的值； ＰｉｖｏｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（Ｏ， ｒｏｗｖａｌｕｅｓ．Ｃｌｅａｒ（）； ｉｆ（ｐｃｅａ．ＲｏｗＶａｌｕｅＴｙｐｅ＝：ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） （ ｆｏｒｅａｃｈ（ＰｉｖｏｔＧｒｉｄＦｉｅＩｄ ｉｔｅｍ ｉｎ｝ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ） ｔｒｙ ｛ ｉｆ《ｉｔｅｍ ＦｉｅｌｄＮａｍｅ！＝“ＩＤ”） ｛ ｔｅｍｐＲｏｗＴｅｘｔ＝” ＋ｐｃｅａ．ＧｅｔＦｉｅｌｄＶａｌｕｅ（ｉｔｅｍ） ＴｏＳｔｒｉｎｇＯ；／／４－”｛“；／／ａｄｄ ｆｏｒｍａｔｔｉｎｇ ｉｆ ｉｔ＇ｓ ｎｅｃｅｓｓａｒｙ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ｔｅｍｐＲｏｗＴｅｘｔ）； ｝ ｅｌｓｅ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ ）： ） ｃａｔｃｈ／／异常只有一种可能：分组小计一栏中， ／／列名字段的值被合并无法显示，所以取不到正确的控件，这个 寸候赋值为空即可 ｛ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ｎｕｌ１）； ｌ５ 箍 与雄 ） ／／ｔｅｍｐＲｏｗＴｅｘｔ＝ｔｅｍｐＲｏｗＴｅｘｔ．Ｒｅｍｏｖｅ ／／（ｔｅｍｐＲｏｗＴｅｘｔ．Ｌｅｎｇｔｈ一３，３）： ） ｅｌｓｅ ｛ ｔｅｍｐＲｏｗＴｅｘｔ＝ｐｃｅａ．ＲｏｗＶａｌｕｅＴｙｐｅ．ＴｏＳｔｒｉｎｇ０； ｒｏｗｖａｌｕｅｓ．Ｃｌｅａｒ（）； ｆｏｒ（ｉｎｔ ａ＝０：ａ＜ｆｉｅｌｄｓｌｎＲｏｗＡｒｅａ．Ｃｏｕｎｔ；ａ＋＋） ｛ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（” ） ｝ ） ｆｏｒ《ｉｎｔ ｊ＝０：ｊ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｊ十＋） ｛ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｊ，ｉ） Ｉｆ（ｐｃｅａ。Ｖａｌｕｅ！＝ｎｕｌ１） ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ｐｃｅａ．Ｖａｌｕｅ）； ｅｌｓｅ ｒｏｗｖａｌｕｅｓ．Ａｄｄ（ＤＢＮｕｌ１．Ｖａｌｕｅ）； ｝ ｄａｔａＴａｂｌｅ１．Ｒｏｗｓ．Ａｄｄ（ｒｏｗｖａｌｕｅｓ．ＴｏＡｒｒａｙＯ）； ） ） ／／／＜ｓｕｍｍａ￣＞ ／／／构建数据集ＤａｔａＴａｂｌｅ，填充数据列； ／／／＜Ｉｓｕｍｍａ￣＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｐｉｖｏｔ”＞＜／Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｄａｔａＴａｂｌｅ１”＞＜／ｐａｒａｍ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｖｏｉｄ ＦｉＩＩＤａｔａｓｅｔＣｏｌｕｍｎｓ（ＰｉｖｏｔＧｒｉｄＣｏｎｔｒｏｌ ｐｉｖｏｔ ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ１） ｛ ／／注意这里，改写此方法、用于添加各个列；增加 ｌｆＣｏｌｕｍｎＡｅｗａ ａｎｄ ＲｏｗＡｒｅａ的字段即可： ／／ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ ＲｏｗＦｉｅｌｄｓ“ ｔｙｐｅｏｆ（ｓｔｒｉｎｇ））； ｓｔｒｉｎｇ ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ ： Ｌｉｓｔ ＜ＰｉｖＯｔＧｎｄＦｉｅ１ｄ ＞ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ ＝ ＧｅｔＦｉｅｌｄｓＩｎＡｒｅａ《ｐｉｖＯｔ，ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）； ｆｏｒ（ｉｎｔ ｉ＝Ｏ：ｉ＜ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ 【ｉ］．ＴｏＳｔｒｉｎｇＯ，ｔｙｐｅｏｆ（ｏｂｊｅｃｔ））； ） ｆｉｅｔｄｓｌｎＣｏｌｕｍｎＡｒｅａ ＝ ＧｅｔＦｉｅ｝ｄｓＩｎＡｒｅａ （ｐｉｖｏｔ， ＰｉｖｏｔＡｒｅａ．ＣｏｌｕｍｎＡｒｅａ）； ｆｏｒ（ｉｎｔ ｉ＝０：ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｉ＋＋） ｛ ＰｉｖｏｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ：ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｉ，０） ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ ： ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ：：ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｛ ｆｏｒｅａｃｈ（ＰｉｖｏｔＧｒｉｄＦｉｅｌｄ ｆｉｅｌｄ ｉｎ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ） ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＋＝ｐｃｅａ．ＧｅｔＦｉｅｌｄＶａｌｕｅ （ｆｉｅｌｄ）．ＴｏＳｔｒｉｎｇ０－ｔ－”ｌ”；／／ａｄｄ ｆｏｒｍａｔｔｉｎｇ ｉｆ ｉｔ＇ｓ ｎｅｃｅｓｓａｒｙ ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ．Ｒｅｍｏｖｅ （ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ．Ｌｅｎｇｔｈ一３，３）： ｄａｔａＴａｂｔｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ，ｔｙｐｅｏｆ（ｄｅｃｉｍａ１））； ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝“”： ｝ ｅｌｓｅ ｛ ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ．ＴｏＳｔｒｉｎｇ０＝＝“ＧｒａｎｄＴｏｔａｌ“） ｛ ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（”合计 ，ｔｙｐｅｏｆ（ｄｅｃｉｍａ１））； ） ｅｌｓｅ ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ａｄｄ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ． ＴｏＳｔｒｉｎｇ０，ｔｙｐｅｏｆ（ｏｂｊｅｃｔ））； ） ｝ ｔｒｖ ｛ ／／ｄａｔａＴａｂｌｅ１．Ｃｏｌｕｍｎｓ．Ｒｅｍｏｖｅ（“ＩＤ”）： ） ｃａｔｃｈ｛） ｝ ／／／＜ｓｕｍｍａｒｙ＞ ／／／获取 ｖｏｔＧｒｉｄＣｏｎｔｒｏＩ控件列域和值域的字段名称列表： ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｐｉｖｏｔ。’＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ａｒｅａ“＞＜／Ｄａｒａｍ＞ ／／＿／＜ｒｅｔｕｒｎｓ＞＜／ｒｅｔｕｒｎｓ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ Ｌｉｓｔ＜ＰｉｖｏｔＧｒｉｄＦｉｅｌｄ＞ＧｅｔＦｉｅｌｄｓｌｎＡｒｅａ （Ｐｉｖ０ｔＧｒｉｄＣｏｎｔｒｏＩ ｐｉｖｏｔ，ＰｉｖｏｔＡｒｅａ ａｒｅａ） ｛ Ｌｉｓｔ＜ＰｉｖｏｔＧ ｒｊｄＦ．ｅＩｄ＞ｆｉｅｌｄｓ＝ｎｅｗ Ｌｉｓｔ＜Ｐｉｖ０ｔＧｒｉｄＦｉｅｌｄ＞（）： ｉｎｔ ｉＭａｘｌｎｄｅｘ＝Ｏ： ｆｏｒ（ｉｎｔ ｉ＝Ｏ：ｉ＜ｐｉｖｏｔ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ；ｉ＋十） ｛ ／／ｉｆ｛（ｐｉｖｏｔ。Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ！：ＰｉｖｏｔＡｒｅａ．ＤａｔａＡｒｅａ） ／／＆＆（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ！＝ＰｉｖｏｔＡｒｅａ．ＦｉｌｔｅｒＡｒｅａ）） ｉｆ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ａｒｅａ） ｉｆ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａｌｎｄｅｘ＞ｉＭａｘｌｎｄｅｘ）ｉＭａｘｌｎｄｅｘ＝ｉ： ） ｆｏｒ（ｉｎｔ ｉ；Ｏ：ｉ＜＝ｉＭａｘｌｎｄｅｘ；ｉ＋＋） ｛ ｆｏｒｅａｃｈ（ＰｉｖｏｔＧｒｉｄＦｉｅｌｄ ｉｔｅｍ ｉｎ ｐｉｖｏｔ．Ｆｉｅｌｄｓ） ｔｒｙ ｛ ｉｆ《（ｉｔｅｍ．Ａｒｅａｌｎｄｅｘ＝＝ｉ）＆＆（ｉｔｅｍ．Ａｒｅａ＝＝ａｒｅａ）） ｛ ｆｉｅｌｄｓ．Ａｄｄ（ｉｔｅｍ）； ） ｝ ｃａｔｃｈ（） ） ｒｅｔｕｒｎ ｆｉｅｌｄｓ； ｝ ＃ｅｎｄｒｅｇｉｏｎ ／／／＜ｓｕｍｍａｒｖ＞ ／，／初始化报表的带状区域（报表头、报表尾等） ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｒｅｐ。。＞＜／ｐａｒａｍ＞ ｐｕｂｌｉｃ ｖｏｉｄ ＩｎｉｔＢａｎｄｓ（×ｔｒａＲｅｐＯｒｔ ｒｅｐ） ｛ ／／Ｃｒｅａｔｅ ｂａｎｄｓ ＲｅｐｏｒｔＨｅａｄｅｒＢａｎｄ ｒｅｐｏｒｔＨｅａｄｅｒ＝ｎｅｗ ＲｅｐｏｒｔＨｅａｄｅｒＢａｎｄ（）： ｒｅｐｏｒｔＨｅａｄｅｒ．ＨｅｉｇｈｔＦ＝７５Ｆ； ｒｅｐｏｒｔＨｅａｄｅｒ．ＷｉｄｔｈＦ＝《ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ．Ｍａｒｇｉｎｓ． Ｌｅｆｔ－Ｉ－ｒｅｐ Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｒｅｐｏｒｔＨｅａｄｅｒ．Ｎａｍｅ：”ｒｅｐｏｒｔＨｅａｄｅｒ“： ＸＲＬａｂｅｌ ｘｒＴｉｔｅｌ＝ｎｅｗ ＸＲＬａｂｅｌ（）； ｘｒＴｉｔｅ１．ＬｏｃａｔｉｏｎＦｌｏａｔ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ．Ｕｔｉｌｓ．ＰｏｉｎｔＦＩｏａｔ（ＯＦ，０Ｆ）： ｘｒＴｉｔｅ１．Ｆｏｎｔ＝ｎｅｗ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｆｏｎｔ（”宋体”， １ ８Ｆ，Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．ＦｏｎｔＳｔｙｌｅ．Ｂｏｌｄ）； ｘｒＴｉｔｅ１．Ｎａｍｅ＝ ｘｒＴｉｔｅｌ。‘： ｘｒＴｉｔｅ１．Ｐａｄｄｉｎｇ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．Ｐａｄｄｉｎｇｌｎｆｏ （２，２，Ｏ，０，１００Ｆ）； ／／ｘｒＴｉｔｅ１ ＳｉｚｅＦ＝ｎｅｗ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ ＳｉｚｅＦ《６６０．７４９８Ｆ， ５２．１ ６６６７Ｆ）； ｘｒＴｉｔｅ１．ＷｉｄｔｈＦ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ．Ｍａｒｇｉｎｓ．Ｌｅｆｔ －Ｉ－ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｘｒＴｉｔｅ１．ＳｔｙｌｅＰｒｉｏｒｉｔｙ．ＵｓｅＦｏｎｔ＝ｆａｌｓｅ； ｘｒＴｉｔｅ１．ＳｔｙｌｅＰｒｉｏｒｉｔｙ．ＵｓｅＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ｆａｌｓｅ； ｘｒＴｉｔｅ１．Ｔｅｘｔ＝ＳＲｅｐｏｒｔＴｉｔｌｅ；／／”资金收支日报表” ｘｒＴｉｔｅ１．ＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ． ＴｅｘｔＡｌｉｇｎｍｅｎｔ．ＭｉｄｄｌｅＣｅｎｔｅｒ； ＸＲＬａｂｅｌ ｘｒＲｅＤＯｒｔ ＰｒｉｎｔＤａｔｅ＝ｎｅｗ ＸＲＬａｂｅｌ０； ｘｒＲｅＤＯｒｔＰｒｉｎｔＤａｔｅ．ＬｏｃａｔｉｏｎＦＩｏａｔ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． Ｕｔｉｌｓ．Ｐ０ｉｎｔＦｌＯａｔ（７４１．９１ ６６Ｆ ５０．３３３３４Ｆ）； ×ｒＲｅｐ０ｒｔＰｎｎｔＤａｔｅ．Ｎａｍｅ＝“ｘｒＲｅｐＯｒｔＰ ｒｉｎｔＤａｔｅ ： ｘｒＲｅＤＯｒｔＰｒｊｎｔＤａｔｅ．Ｐａｄｄｉｎｇ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＰｒｉｎｔｉｎｇ．Ｐａｄｄｉｎｇｌｎｆｏ（２，２，０ ０，１ ００Ｆ）； ｘｒＲｅＤＯｒｔＰｒｉｎｔＤａｔｅ．ＳｉｚｅＦ＝ｎｅｗ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ． ＳｉｚｅＦ（２２７．０８３３Ｆ，２３Ｆ）； ｘｒＲｅＤＯｒｔＰｒｉｎｔＤａｔｅ．ＳｔｙｌｅＰｒｉｏｒｉｔｙ．ＵｓｅＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ｆａｌｓｅ； ｘｒＲｅｐｏｒｔＰｒｉｎｔＤａｔｅ．Ｔｅｘｔ＝ＳＲｅｐｏｒｔＰｉｎｔＤａｔｅ：，／“ｘｒＬａｂｅｌ３ ： ｆ（ＳＲｅｐＯｒｔＰｉｎｔＤａｔｅ＝＝“”） ｘｒＲｅｐｏｎＰｒｉｎｔＤａｔｅ．Ｔｅｘｔ＝“打印日期：”－Ｉ－Ｓｙｓｔｅｍ． ＤａｔｅＴｉｍｅ Ｎｏｗ．ＴｏＳｔｒｉｎｇ（”ｙｙｙｙ—ＭＭ—ｄｄ”）： ｘｒＲｅＤＯｒｔＰｒｉｎｔＤａｔｅ．ＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＰｒｉｎｔｉｎｇ．ＴｅｘｔＡｌｉｇｎｍｅｎｔ．ＭｉｄｄｌｅＲｉｇｈｔ； ｜｜ ／／ｘｒＲｅｐｏｒｔＤａｔｅ ｜ｌ ＸＲＬａｂｅｌ ｘｒＲｅｐｏｒｔＤａｔｅ：ｎｅｗ ＸＲＬａｂｅｌ０； ／／１ 印， 实用第 一 慧密集 ｘｒＲｅｐｏｒｔＤａｔｅ．Ｆｏｎｔ＝ｎｅｗ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．Ｆｏｎｔ（”宋体”，９Ｆ）： ｘｒＲｅｐｏｒｔＤａｔｅ ＬｏｃａｔｉｏｎＦＩｏａｔ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． Ｕｔｉｌｓ．ＰＯｉｎｔＦｌＯａｔ（０Ｆ，５０Ｆ）： ｘｒＲｅｐｏｒｔＤａｔｅ．Ｎａｍｅ＝。。ｘｒＲｅｐｏｒｔＤａｔｅ。’： ｘｒＲｅｐｏｒｔＤａｔｅ．Ｐａｄｄｉｎｇ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＰｒｉｎｔｉｎｇ．Ｐａｄｄｉｎｇｌｎｆｏ（２，２，０，０，１ ００Ｆ）； ｘｒＲｅｐＯｒｔＤａｔｅＳｉｚｅＦ＝ｎｅｗＳｙｓｔｅｎ＾ＬＤｒａｗｉｎｇＳｉｚｅＦ（３４６８７５Ｆ，２３Ｆ）； ｘｒＲｅｐｏｒｔＤａｔｅ．ＳｔｙｌｅＰｒｉｏｒｉｔｙ．ＵｓｅＦｏｎｔ＝ｆａｌｓｅ； ｘｒＲｅｐｏｒｔＤａｔｅ．ＳｔｙｌｅＰｒｉｏｄｔｙ．ＵｓｅＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ｆａｌｓｅ； ｘｒＲｅｐｏｒｔＤａｔｅ．Ｔｅｘｔ＝ＳＲｅｐＯｒｔＤａｔｅ：／／”ｘｒＲｅｐｏｒｔＤａｔｅ“： ｘｒＲｅｐｏｒｔＤａｔｅ．ＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＰｒｉｎｔｉｎｇ．ＴｅｘｔＡｌｉｇｎｍｅｎｔ．ＭｉｄｄｌｅＬｅｆｔ； ｒｅｐｏｒｔＨｅａｄｅｒ．Ｃｏｎｔｒｏｌｓ．ＡｄｄＲａｎｇｅ（ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＲｅｐｏｒｔｓ．ＵＩ．ＸＲＣｏｎｔｒｏｌ［】｛ ｘｒＴｉｔｅｌ， ×ｒＲｅｐＯｒｔＰｒｉｎｔＤａｔｅ， ×ｒＲｅｐｏｒｔＤａｔｅ））： ＤｅｔａｉｌＢａｎｄ ｄｅｔａｉｌ＝ｎｅｗ ＤｅｔａｉｌＢａｎｄ（）： ＰａｇｅＨｅａｄｅｒＢａｎｄ ｐａｇｅＨｅａｄｅｒ＝ｎｅｗ ＰａｇｅＨｅａｄｅｒＢａｎｄ（）： ＲｅｐｏｒｔＦＯＯｔｅｒＢａｎｄ ｒｅｐｏｒｔＦｏｏｔｅｒ＝ｎｅｗ ＲｅｐＯｒｃＦＯＯｔｅｒＢａｎｄ｛）： ｄｅｔａｉｌ．Ｈｅｉｇｈｔ＝２０； ｒｅｐｏｒｔＦｏｏｔｅｒ．Ｈｅｉｇｈｔ＝３８０； ｐａｇｅＨｅａｄｅｒ．Ｈｅｉｇｈｔ＝２０； ＰａｇｅＦｏｏｔｅｒＢａｎｄ ｐａｇｅＦｏｏｔ＝ｎｅｗ ＰａｇｅＦｏｏｔｅｒＢａｎｄ（）： ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＲｅｐｏｒｔｓ．ＵＩ．ＸＲＰａｇｅｌｎｆｏ ｘｒＰａｇｅｌｎｆｏｌ ＝ｎｅｗ ＸＲＰａｇｅｌｎｆｏ０； ｘｒＰａｇｅｌｎｆｏ１．ＬｏｃａｔｉｏｎＦＩｏａｔ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ．Ｕｔｉｌｓ． ＰｏｉｎｔＦＩＯａｔ（７９４．５００２Ｆ，０Ｆ）： ｘｒＰａｇｅｌｎｆｏ１．Ｎａｍｅ＝“ｘｒＰａｇｅｌｎｆｏｌ”： ｘｒＰａｇｅｌｎｆｏ１．Ｐａｄｄｉｎｇ＝ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ Ｐａｄｄｉｎｇｌｎｆｏ（２，２，０，０，１ ０ＯＦ）； ｘｒＰａｇｅｌｎｆｏ１．ＳｉｚｅＦ＝ｎｅｗ Ｓｙｓｔｅｍ．Ｄｒａｗｉｎｇ．ＳｉｚｅＦ（１ ００Ｆ，２３Ｆ）； ｐａｇｅＦｏｏｔ．Ｃｏｎｔｒｏｌｓ．ＡｄｄＲａｎｇｅ （ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＲｅｐｏｒｔｓ．ＵＩ．ＸＲＣｏｎｔｒｏｌ［１｛ ｘｒＰａｇｅｌｎｆｏ１））： ｐａｇｅＦｏｏｔ．ＨｅｉｇｈｔＦ＝３９．５８３３３Ｆ； ｐａｇｅＦｏｏｔ．Ｎａｍｅ＝‘。ＲｅｐｏｒｔＦｏｏｔｅｒ“： ／／Ｐｌａｃｅ ｔｈｅ ｂａｎｄｓ ｏｎｔｏ ａ ｒｅｐｏｒｔ ｒｅｐ．Ｂａｎｄｓ．ＡｄｄＲａｎｇｅ（ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＲｅｐｏｒｔｓ．ＵＩ．Ｂａｎｄｎ ｛ｒｅｐｏｒｔＨｅａｄｅｒ，ｄｅｔａｉｌ，ｐａｇｅＨｅａｄｅｒ，ｐａｇｅＦｏｏｔ，ｒｅｐｏｒｔＦｏｏｔｅｒ））； ） ／／／＜ｓｕｍｍａ ｒｙ＞ ／／／设置报表的显示风格： ／／／＜／ｓｕｍｍａ ｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｒｅｐ”＞＜，Ｄａｒａｍ＞ ｐｕｂｌｉｃ ｓｔａｔｉｃ ｖｏｉｄ ＩｎｉｔＳｔｙｌｅｓ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐ） ｛ ／／Ｃｒｅａｔｅ ｄｉｆｆｅｒｅｎｔ ｏｄｄ ａｎｄ ｅｖｅｎ ｓｔｙｌｅｓ ×ＲＣＯｎｔｒ０ＩＳｔｖＩｅ ｏｄｄＳｔｙｌｅ＝ｎｅｗ ＸＲＣｏｎｔｒｏｌＳｔｙｌｅ０； ＸＲＣｏｎｔｒｏｌＳｔｙｌｅ ｅｖｅｎＳｔｙｌｅ＝ｎｅｗ ＸＲＣｏｎｔｒｏｌＳｔｙｌｅ０； ／／Ｓｐｅｃｉｆｙ ｔｈｅ ｏｄｄ ｓｔｙｌｅ ａｐｐｅａｒａｎｃｅ ｏｄｄＳｔｙｔｅ．ＢａｃｋＣｏｌｏｒ＝Ｃｏｌｏｒ．ＬｉｇｈｔＢｌｕｅ； ｏｄｄＳｔｙｌｅ．ＳｔｙｔｅＵｓｉｎｇ．ＵｓｅＢａｃｋＣｏｌｏｒ＝ｔｒｕｅ； ｏｄｄＳｔｙｌｅ．ＳｔｙｌｅＵｓｉｎｇ．ＵｓｅＢｏｒｄｅｒｓ＝ｆａｌｓｅ； ／／ｏｄｄＳｔｙｌｅ．Ｎａｍｅ：“ＯｄｄＳｔ￣，ｌｅ”： ／／Ｓｐｅｃｉｆｙ ｔｈｅ ｅｖｅｎ ｓｔｙｌｅ ａｐｐｅａｒａｎｃｅ ｅｖｅｎＳｔｙｌｅ．ＢａｃｋＣｏｌｏｒ＝Ｃｏｌｏｒ．ＬｉｇｈｔＰｉｎｋ； ｅｖｅｎＳｔｙｌｅ．ＳｔｙｔｅＵｓｉｎｇ．ＵｓｅＢａｃｋＣｏｌｏｒ＝ｔｒｕｅ； ｅｖｅｎＳｔｙｌｅ．ＳｔｙｌｅＵｓｉｎｇ．ＵｓｅＢｏｒｄｅｒｓ＝ｆａｌｓｅ； ／／ｅｖｅｎＳｔｙｌｅ．Ｎａｍｅ＝“ＥｖｅｎＳｔｙｌｅ”： ｜｜Ａｄｄ ｓｔｙｌｅｓ ｔｏ ｒｅｐｏｒｔ ｓ ｓｔｙ‘ｌｅ ｓｈｅｅｔ ｒｅｐ．ＳｔｙｌｅＳｈｅｅｔ．ＡｄｄＲａｎｇｅ（ｎｅｗ ＤｅｖＥｘｐｒｅｓｓ． ＸｔｒａＲｅｐｏｒｔｓ．ＵＩ．ＸＲＣｏｎｔｒｏｌＳｔｙｌｅ［】｛ｏｄｄＳｔｙｌｅ．ｅｖｅｎＳｔｙｌｅ））： ｝ ／／／＜ｓｕｍｍａｒｙ＞ ／／／构建报表明细数据所用的表格 ／／／＜ｉｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｒｅｐ”＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｋｉｎｄ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｃｏｌｕｍｎＷｉｄｔｈ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｒｅｐｅａｔＲｏｗＨｅａｄｅｒ ＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｐｉｖｏｔ”＞＜／Ｄａｒａｍ＞ ｐｕｂｌｉｃ ｖｏｉｄ ＩｎｉｔＤｅｔａｉｌｓＢａｓｅｄｏｎＸＲＴａｂｌｅ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐ， ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ ｋｉｎｄ，ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ，ｂｏｏｌ ｒｅｐｅａｔＲｏｗ Ｈｅａｄｅｒ，ＰｉｖＯｔＧｒ ｄＣｏｎｔｒｏＩ ｐｉｖｏｔ） ｛ ｉｆ《！ｒｅｐｅａｔＲｏｗＨｅａｄｅｒ ｌｌ ｋｉｎｄ＝＝ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒ Ｔｖｐｅ．ＳｉｎｇｌｅＰａｇｅ） ＩｎｉｔＤｅｔａｉＩｓＢａｓｅｄｏｎ×ＲＴａｂｌｅＷｉｔｈｏｕｔＲｅｐｅａｔｉｎｇＲｏｗＨｅａｄｅｒ（ｒｅｐ． ｋｉｎｄ，ｃｏｌｕｍｎＷｉｄｔｈ）； ｅｌｓｅ ＩｎｉｔＤｅｔａｉｌｓＢａｓｅｄｏｎＸＲＴａｂｌｅＲｅｐｅａｔｉｎｇＲｏｗＨｅａｄｅｒ ｛ｒｅｐ，ｋｉｎｄ，ｃｏｌｕｍｎＷｉｄｔｈ，ｐｉｖｏｔ）； ｝ ／／／＜ｓｕｍｍａｒｙ ＞ ／／／构建报表明细数据报表头（每页均打印报表头） ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｒｅｐ。。＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｋｉｎｄ”＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｃｏｌｕｍｎＷｉｄｔｈ”＞＜／Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｐｉｖｏｔ”＞＜／Ｄａｒａｍ＞ ｐｒｉｖａｔｅ ｖｏｉｄ ＩｎｉｔＤｅｔａｉｌｓＢａｓｅｄＯｎ×ＲＴａｂｌｅ ＲｅｐｅａｔｉｎｇＲｏｗＨｅａｄｅｒ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐ，ＲｅｐｏｒｔＧｅｎｅｒａｔ０ｒＴＶｐｅ ｋｉｎｄ，ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ，ＰｉｖｏｔＧｒｉｄＣＯｎｔｒＯｌ ｐｉｖｏｔ） ｛ Ｆｏｎｔ ｆｏｎｔ＝ｎｅｗ Ｆｏｎｔ（”宋体“ ９．００ｆ）； ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ＝ｆ（ＤａｔａＳｅｔ）ｒｅｐ．ＤａｔａＳｏｕｒｃｅ）． ＴａｂＩｅｓ【０ｌ：／／Ｄｔ ｎｔ．，／ ｉｎｔ ｐｒＯｃｅｓｓｅｄＰａｇｅ＝Ｏ ｉｎｔ ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ＝ｒｅｐ．ＰａｇｅＷｉｄｔｈ—ｆｒｅｐ． Ｍａｒｇｉｎｓ．Ｌｅｆｔ ４－ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ）； Ｌｉｓｔ＜ｉｎｔ＞ｃｏｌｕｍｎｓＷｉｄｔｈ＝ｎｕｌｌ； ｉｆ（ＣｏｌｕｍｎｓＷｉｄｔｈ！＝ｎｕｌ１） ｃｏｌｕｍｎｓＷｉｄｔｈ＝ＣｏｌｕｍｎｓＷｉｄｔｈ； ｅＩＳｅ ｔａｂｌｅＨｅａｄｅｒ．ＥｎｄｌｎｉｔＯ； ｔａｂｌｅＤｅｔａｉｌ．Ｅｎｄｌｎｉｔ０； ＩｎｉｔＮｅｗＴａｂｌｅｌｎｓｔａｎｃｅｓＡｔ《ｒｅｐ，ｆｏｎｔ，ｏｕｔ ｔａｂｌｅＨｅａｄｅｒ，ｏｕｔ ｛ ｆ（ｋｉｎｄ＝＝ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＦｉｘｅｄＣｏｌｕｍｎＷｉｄｔｈ） ｃｏｌｕｍｎｓＷｉｄｔｈ＝ＤｅｆｉｎｅＣｏｌｕｍｎｓＷｉｄｔｈ（ｃｏｌｕｍｎＷｉｄｔｈ， ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ）； ｔａｂｌｅＤｅｔａｉｌ，ｎｅｗ ＰｏｉｎｔＦ（ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ ｐｒｏｃｅｓｓｅｄＰａｇｅ，Ｏ】）： ｔａｂｌｅＨｅａｄｅｒ．Ｂｅｇｉｎｌｎｉｔ０； ｅｌｓｅ ｉｆ（ｋｉｎｄ＝＝ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＦｉｔＡｓＰｉｖｏｔＧｒｉｄ） ｛ ｃｏｌｕｍｎｓＷｉｄｔｈ＝＝ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＡｓＰｉｖｏｔＧｒｉｄＷｉｄｔｈ （ｒｅｐ，ｄａｔａＴａｂｌｅ，ｆｏｎｔ，ｐｉｖｏｔ）； ） ｅｌｓｅ （ ｃｏｌｕｍｎｓＷｉｄｔｈ＝＝ｎｅｗ Ｌｉｓｔ＜ｉｎｔ＞０； ｆｏｒ（ｉｎｔ ａ＝Ｏ：ａ＜ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ；ａ＋＋） ｛ ｉｎｔ ｔｅｍｐＷｉｄｔｈ０＝ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ（ｄａｔａＴａｂｌｅ， ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［ａ］．Ｃａｐｔｉｏｎ，ｆｏｎｔ）； ｃｏｌｕｍｎｓＷｉｄｔｈ．Ａｄｄ（ｔｅｍｐＷｉｄｔｈ０）； ｝ ） ） ＸＲＴａｂｌｅ ｔａｂｌｅＨｅａｄｅｒ＝ｎｕｌｌ； ＸＲＴａｂｌｅ ｔａｂｌｅＤｅｔａｉＩ＝ｎｕｌｌ； ＩｎｉｔＮｅｗＴａｂｌｅｌｎｓｔａｎｃｅｓＡｔ（ｒｅｐ，ｆｏｎｔ，ｏｕｔ ｔａｂｔｅＨｅａｄｅｒ， ｏｕｔ ｔａｂｌｅＤｅｔａｉｌ．ｎｅｗ ＰｏｉｎｔＦ（０，Ｏ））： ｔａｂｌｅＨｅａｄｅｒ．Ｂｅｇｉｎｌｎｉｔ０； ｔａｂｌｅＤｅｔａｉｌ．Ｂｅｇｉｎｌｎｉｔ０； ｔｒｖ （ ｉｎｔ ｉＣｏｌｕｍｎｓ＝ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ； ｉｎｔ ｉＬｅｎｇｔｈ＝ｃｏｌｕｍｎｓＷｉｄｔｈ．Ｃｏｕｎｔ； ｉｎｔ ｉＡｄｄ＝ｉＣｏｌｕｍｎｓ—－ｉＬｅｎｇｔｈ； ｉｆ（ｉＡｄｄ＞０） ｛ ｆｏｒ（ｉｎｔ ｊ＝Ｏ：ｊ＜ｉＡｄｄ；ｊ＋＋） ｛ ｃｏｌｕｍｎｓＷｉｄｔｈ．Ａｄｄ（７０）； ） ｝ ） ｃａｔｃｈ（） ｊｎｔ ｉ＝１： ＡｄｄＣｅｌｌｓＴｏＴａｂｔｅｓ（ｔａｂｌｅＨｅａｄｅｒ，ｔａｂｌｅＤｅｔａｉｌ， ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［０］，ｃｏｌｕｍｎｓＷｉｄｔｈ［０］，ｔｒｕｅ）； ｉｎｔ ｒｅｍａｉｎｉｎｇＳｐａｃｅ＝ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ—ｃｏｌｕｍｎｓＷｉｄｔｈ［０］； ｄｏ ｛ ．ｆ（ｃｏｌｕｍｎｓＷｉｄｔｈ［ｉｌ＞ｒｅｍａｉｎｉｎｇＳｐａｃｅ） ｛ ｐｒＯｃｅｓｓｅｄＰａｇｅ＋＋： ｔａｂｌｅＨｅａｄｅｒ．ＷｉｄｔｈＦ＝ＵＳａｂｌｅＰａｇｅＷｉｄｔｈ—ｒｅｍａｉｎｉｎｇＳｐａｃｅ； ｔａｂｌｅＤｅｔａｉｌ．ＷｉｄｔｈＦ＝ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ—ｒｅｍａｉｎｉｎｇＳｐａｃｅ； ｔａｂｌｅＤｅｔａｉｌ．Ｂｅｇｉｎｌｎｉｔ０； ＡｄｄＣｅｌｌｓＴｏＴａｂｌｅｓ（ｔａｂｌｅＨｅａｄｅｒ，ｔａｂｌｅＤｅｔａ ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［０］，ｃｏｌｕｍｎｓＷｉｄｔｈ［０］，ｔｒｕｅ）； ｒｅｍａｉｎｉｎｇＳｐａｃｅ＝ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ—ｃｏｌｕｍｎｓＷｉｄｔｈ［０］； ） ｅｌｓｅ ｛ ＡｄｄＣｅｌｌｓＴｏＴａｂｌｅｓ（ｔａｂｌｅＨｅａｄｅｒ，ｔａｂｌｅＤｅｔａ ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［ｉ］，ｃｏｌｕｍｎｓＷｉｄｔｈ［ｉ］，ｆａｌｓｅ）； ｒｅｍａｉｎｉｎｇＳｐａｃｅ——＝ｃｏｌｕｍｎｓＷｉｄｔｈ［ｉ］； ｉ＋＋： ） ） ｗｈｉｌｅ ｆｉ＜ｃｏｌｕｍｎｓＷｉｄｔｈ．Ｃｏｕｎｔ）； ｔａｂｌｅＨｅａｄｅｒ．Ｗ ｄｔｈＦ：ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ—ｒｅｍａｉｎｉｎｇＳｐａｃｅ ｔａｂｌｅＤｅｔａｉｌ．ＷｊｄｔｈＦ＝ｕｓａｂｌｅＰａｇｅＷｉｄｔｈ—ｒｅｍａｉｎｉｎｇＳｐａｃｅ ｔａｂｌｅＨｅａｄｅｒ．ＥｎｄｌｎｉｔＯ； ｔａｂｌｅＤｅｔａｉｌ．Ｅｎｄｌｎｉｔ０； ） ／／／＜ｓｕｍｍａｒｙ＞ ／，／添加表格单元格到表格中去用于显示数据 ／／／＜Ｉｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝。‘ｈｅａｄｅｒ‘‘＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝‘‘ｄｅｔａｉｌ。‘＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｄｃ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｃｏｌｕｍｎＷｉｄｔｈ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｉｓＦｉｒｓｔＣｏｌｕｍｎｌｎＴａｂｌｅ“＞＜／ｐａｒａｍ＞ ｐｕｂｌｉｃ ｓｔａｔｉｃ ｖｏｉｄ ＡｄｄＣｅｌｌｓＴｏＴａｂｌｅｓ（ＸＲＴａｂｌｅ ｈｅａｄｅｒ， ＸＲＴａｂｌｅ ｄｅｔａｉｌ，ＤａｔａＣｏｌｕｍｎ ｄｃ，ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ，ｂｏｏｌ ｉｓＦｉｒｓｔＣｏｌｕｍｎｌｎＴａｂｌｅ） ｛ ＸＲＴａｂｌｅＣｅｌｌ ｈｅａｄｅｒＣｅｌＩ＝ｎｅｗ×ＲＴａｂｌｅＣｅｌＩ（）： ｈｅａｄｅｒＣｅｌ１．Ｔｅｘｔ＝ｄｃ．Ｃａｐｔｉｏｎ； ｈｅａｄｅｒ ＴｅｘｔＡｌｉｇｎｍｅｎｔ：ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ． ＴｅｘｔＡｌｉｇｎｍｅｎｔ．ＭｉｄｄｌｅＣｅｎｔｅｒ； ／／ｈｅａｄｅｒ．Ｆｏｎｔ．Ｂｏｌｄ＝ｔｒｕｅ； ＸＲＴａｂｌｅＣｅｌｌ ｄｅｔａｉｌＣｅｌＩ＝ｎｅｗ ＸＲＴａｂｌｅＣｅｌｌＯ； ｄｅｔａｉｌＣｅｌ１．ＤａｔａＢｉｎｄｉｎｇｓ．Ａｄｄ（’‘Ｔｅｘｔ”，ｎｕｌｌ，ｄｃ．Ｃａｐｔｉｏｎ）； ｈｅａｄｅｒＣｅｌ１．Ｗｉｄｔｈ＝ｃｏｌｕｍｎＷｉｄｔｈ； ｄｅｔａｉＩＣｅｌ１．Ｗｉｄｔｈ：ｃｏｌｕｍｎＷｉｄｔｈ； ｉｆ（（ｄｃ．ＤａｔａＴｙｐｅ） ＦｕｌｌＮａｍｅ＝：”Ｓｙｓｔｅｍ．Ｄｅｃｉｍａｌ“） ｄｅｔａｉｌＣｅｌ１．ＴｅｘｔＡｌｉｇｎｍｅｎｔ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ． ＴｅｘｔＡｌｉｇｎｍｅｎｔ．ＭｉｄｄｌｅＲｉｇｈｔ； ｉｆ（ｉｓＦｉｒｓｔＣｏｌｕｍｎｌｎＴａｂｌｅ） ｛ ｈｅａｄｅｒＣｅｌ１．Ｂｏｒｄｅｒｓ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ． ＢｏｒｄｅｒＳｉｄｅ．Ｌｅｆｔ Ｉ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ．Ｔｏｐ Ｉ 实用第 智慧密集 ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ．Ｂｏｔｔｏｍ； ｄｅｔａｉｌＣｅｌ１．Ｂｏｒｄｅｒｓ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ． Ｌｅｆｔ ｌ ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ．Ｂｏｔｔｏｍ； ） ｅｌｓｅ （ ｈｅａｄｅｒＣｅｌ１．Ｂｏｒｄｅｒｓ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ．Ａｌｌ； ｄｅｔａｉｌＣｅｌ１．Ｂｏｒｄｅｒｓ＝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．Ｂｏｒｄｅｒ Ｓｉｄｅ．Ｌｅｆｔ｝ＤｅｖＥｘｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ Ｒｉｇｈｔ Ｉ ＤｅｖＥｘ ｐｒｅｓｓ．ＸｔｒａＰｒｉｎｔｉｎｇ．ＢｏｒｄｅｒＳｉｄｅ．Ｂｏｔｔｏｍ； ） ｌ｜Ｐｌａｃｅ ｔｈｅ ｃｅｌｌｓ ｉｎｔｏ ｔｈｅ ｃｏｒｒｅｓｐｏｎｄｉｎｇ ｔａｂｌｅｓ ｈｅａｄｅｒ．Ｒｏｗｓ［Ｏ］．Ｃｅｌｌｓ．Ａｄｄ（ｈｅａｄｅｒＣｅ｝｝）： ｄｅｔａｉｌ．Ｒｏｗｓ［Ｏ］．Ｃｅｌｌｓ．Ａｄｄ（ｄｅｔａｉＩＣｅｌ１）： ） ｐｕｂｌｉｃ ｓｔａｔｉｃ ｖｏｉｄ ＩｎｉｔＮｅｗＴａｂｌｅｌｎｓｔａｎｃｅｓＡｔ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐｏｒｔ，Ｆｏｎｔ ｆｏｎｔ，ｏｕｔ ＸＲＴａｂｌｅ ｈｅａｄｅｒ，ｏｕｔ ＸＲＴａｂｌｅ ｄｅｔａｉｌ， 一Ｐｏｉ 一。 一ｎｔＦ ｌ ｏｃａｔｉｏｎ） ｛ ｈｅａｄｅｒ＝ＩｎｉｔＸＲＴａｂｌｅ（ｆｏｎｔ，ｆａｌｓｅ）； ｄｅｔａｉｌ＝ＩｎｉｔＸＲＴａｂｌｅ（ｆｏｎｔ．ｔｒｕｅ）； ｈｅａｄｅｒ．ＬｏｃａｔｉｏｎＦ＝Ｉｏｃａｔｉｏｎ； ｄｅｔａｉｌ．ＬｏｃａｔｉｏｎＦ：ｌｏｃａｔｉｏｎ； ＸＲＴａｂｌｅＲｏｗ ｈｅａｄｅｒＲｏｗ＝ｎｅｗ ＸＲＴａｂｌｅＲｏｗＯ； ｈｅａｄｅｒ．Ｒｏｗｓ．Ａｄｄ（ｈｅａｄｅｒＲｏｗ）； ＸＲＴａｂｌｅＲｏｗ ｄｅｔａｉＩＲｏｗ＝ｎｅｗ ＸＲＴａｂｌｅＲｏｗＯ； ｄｅｔａｉｌ．Ｒｏｗｓ．Ａｄｄ（ｄｅｔａｉｌＲｏｗ）； ｒｅｐｏｒｔ．Ｂａｎｄｓ【ＢａｎｄＫｉｎｄ．ＰａｇｅＨｅａｄｅｒ］．Ｃｏｎｔｒｏｌｓ．Ａｄｄ（ｈｅａｄｅｒ）； ｒｅｐｏｒｔ．Ｂａｎｄｓ【ＢａｎｄＫｉｎｄ．Ｄｅｔａｉｌ］．Ｃｏｎｔｒｏｌｓ．Ａｄｄ（ｄｅｔａｉｌ）； ） ／／／＜ｓｕｍｍａｒｙ＞ ，，／初始化表格 ／／／＜／ｓｕｍｍａ ｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｆｏｎｔ”＞＜，Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝‘。ｗｉｔｈＳｔｙｌｅｓ ＞＜／ｐａｒａｍ＞ ／／ｌ／＜ｒｅｔｕｒｎｓ＞＜／ｒｅｔｕｒｎｓ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ＸＲＴａｂｌｅ ＩｎｉｔＸＲＴａｂｌｅ （Ｆｏｎｔ ｆｏｎｔ，ｂｏｏ ｗｉｔｈＳｔｙｌｅｓ） ｛ ＸＲＴａｂｌｅ ｔａｂｌｅ＝ｎｅｗ ＸＲＴａｂｌｅＯ； ｔａｂｌｅ．Ｆｏｎｔ＝ｆｏｎｔ； ｔａｂｌｅ．Ｈｅｉｇｈｔ＝２０； ｜ｆ（ｗｉｔｈＳｔｙｌｅｓ） ｛ ｔａｂｌｅ．ＥｖｅｎＳｔｙｌｅＮａｍｅ＝“ＥｖｅｎＳｔｙｌｅ“： ｔａｂｌｅ ＯｄｄＳｔ￣ｒｌｅＮａｍｅ＝。。ＯｄｄＳｔｙｌｅ“： ｝ ｒｅｔｕｒｎ ｔａｂｌｅ； ｝ ／／／＜ｓｕｍｍａｒｙ＞ ／／／定义列宽数组 ／／／＜Ｉｓｕｍｍａｒｙ＞ ：６０ 电脑壤程技巧２０１２．Ｏ９ 与罐熬 ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｃｏｌｕｍｎＷｉｄｔｈ ＞＜／Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｃｏｕｎｔ“＞＜／Ｄａｒａｍ＞ ／／／＜ｒｅｔｕｒｎｓ＞＜／ｒｅｔｕｒｎｓ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ Ｌｉｓｔ＜ｉｎｔ＞ＤｅｆｉｎｅＣｏｌｕｍｎｓＷｉｄｔｈ（ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ，ｉｎｔ ｃｏｕｎｔ） ｛ Ｌｉｓｔ＜ｉｎｔ＞ｃｏｌｕｍｎｓＷｉｄｔｈ＝ｎｅｗ Ｌｉｓｔ＜ｉｎｔ＞Ｏ； ｆｏｒ ｌｉｎｔ ｉ：０：ｉ＜ｃｏｕｎｔ；ｉ＋＋） ｃｏｌｕｍｎｓＷｉｄｔｈ．Ａｄｄ（ｃｏｌｕｍｎＷｉｄｔｈ）； ｒｅｔｕｒｎ ｃｏｌｕｍｎｓＷｉｄｔｈ； ） ｌｌｊ＜ｓｕｍｍａ ＞ ／／／构建报表明细数据报表头（只在第一页打印报表头） ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｒｅｐ ＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｋｉｎｄ“＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｃｏ！ｕｍｎＷｉｄｔｈ。‘＞＜／ｐａｒａｍ＞ ｓｔａｔｉｃ ｖｏｉｄ ＩｎｉｔＤｅｔａｉｌｓＢａｓｅｄｏｎＸＲＴａｂｌｅＷｉｔｈｏｕｔＲｅｐｅａｔｉｎｇ ＲｏｗＨｅａｄｅｒ（ＸｔｒａＲｅｐｏｒｔ ｒｅｐ，ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ ｋｉｎｄ，ｉｎｔ ｃｏｌｕｍｎＷｉｄｔｈ） ｛ Ｆｏｎｔ ｆｏｎｔ＝ｎｅｗ Ｆｏｎｔ（”Ｔａｈｏｍａ” ９．７５ｆ）； ＤａｔａＳｅｔ ｄｓ＝（（ＤａｔａＳｅｔ）ｒｅｐ．ＤａｔａＳｏｕｒｃｅ）； １ｎｔ ｃｏｌＣｏｕｎｔ＝ｄｓ．Ｔａｂｌｅｓ［Ｏ］．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ； ｉｎｔ ｃｏｔＷｉｄｔｈ＝０： ＸＲＴａｂｌｅ ｔａｂｌｅＨｅａｄｅｒ：ｎｕｌｌ； ＸＲＴａｂｌｅ ｔａｂｌｅＤｅｔａｉＩ＝ｎｕｌｌ； ＩｎｉｔＮｅｗＴａｂｌｅｌｎｓｔａｎｃｅｓＡｔ（ｒｅｐ，ｆｏｎｔ，ｏｕｔ ｔａｂｌｅＨｅａｄｅｒ， ｏｕｔ ｔａｂｌｅＤｅｔａｉｌ，ｎｅｗ ＰｏｉｎｔＦ（Ｏ，０））： Ｌｉｓｔ＜ｉｎｔ＞ｃｏｌｕｍｎｓＷｉｄｔｈ＝ｎｕｌｌ； ｓｗｉｔｃｈ《ｋｉｎｄ） ｛ ｃａｓｅ ＲｅｐｏｒｔＧｅｎｅ阳ｔｏｒ＿ｒｙｐｅ．ＦｉｘｅｄＣｏｌｕｍｎＷｉｄｔｈ： ｃｏｌＷｉｄｔｈ＝ｃｏｌｕｍｎＷｉｄｔｈ； ｔａｂｌｅＨｅａｄｅｒ．Ｗｉｄｔｈ：ｃｏｌｕｍｎＷｉｄｔｈ ｃｏｌＣｏｕｎｔ； ｔａｂｌｅＤｅｔａｉｌ．Ｗｉｄｔｈ＝ｃｏｌｕｍｎＷｉｄｔｈ ｃｏｌＣｏｕｎｔ； ｂｒｅａｋ； ｃａｓｅ ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＢｅｓｔＦｉｔＣｏｌｕｍｎｓ： ｃｏｌｕｍｎｓＷｉｄｔｈ＝ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ（ｄｓ．Ｔａｂｌｅｓ［Ｏ］，ｆｏｎｔ）； ｃｏｌＷｉｄｔｈ＝０： ｔａｂｌｅＨｅａｄｅｒ．Ｗｉｄｔｈ＝ＧｅｔＴｏｔａｌＷｉｄｔｈ（ｃｏｌｕｍｎｓＷｉｄｔｈ）； ｔａｂｌｅＤｅｔａｉｌ．Ｗｉｄｔｈ＝ｔａｂｌｅＨｅａｄｅｒ．Ｗｉｄｔｈ； ｂｒｅａｋ； ｃａｓｅ ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＦｉｔＡｓＰｉｖｏｔＧｒｉｄ： ｔａｂｌｅＨｅａｄｅｒ．Ｗｉｄｔｈ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ Ｍａｒｇｉｎｓ．Ｌｅｆｔ＋ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｔａｂｌｅＤｅｔａｉｌ．Ｗｉｄｔｈ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ Ｍａｒｇｉｎｓ．Ｌｅｆｔ＋ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｂｒｅａｋ； ｄｅｆａｕｌｔ： ｃｏｌＷｉｄｔｈ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ～｛ｒｅｐ．Ｍａｒｇｉｎｓ Ｌｅｆｔ－Ｉ－ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））／ｃｏｌＣｏｕｎｔ； ｔａｂｌｅＨｅａｄｅｒ．Ｗｉｄｔｈ ：（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ Ｍａｒｇｉｎｓ．Ｌｅｆｔ＋ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｔａｂｌｅＤｅｔａｉｌ．Ｗｉｄｔｈ ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ Ｍａｒｇｉｎｓ．Ｌｅｆｔ ４－ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｂｒｅａｋ； ｝ ｔａｂｌｅＨｅａｄｅｒ．Ｂｅｇｉｎｌｎｉｔ０； ｔａｂｌｅＤｅｔａｉｌ．Ｂｅｇｉｎｌｎｉｔ０； ／／Ｃｒｅａｔｅ ｔａｂｌｅ ｃｅｌｌｓ，ｆｉｌｌ ｔｈｅ ｈｅａｄｅｒ ｃｅｌｌｓ ｗｉｔｈ ｔｅｘｔ， ／／ｂｉｎｄ ｔｈｅ ｃｅｌｌｓ ｔｏ ｄａｔａ ｆｏｒ（ｉｎｔ ｉ＝０：ｉ＜ｃｏｌＣｏｕｎｔ；ｉ＋＋） ｛ ＡｄｄＣｅｌ ＪｓＴｏ丁ａｂＩｅｓ（ｔａｂｌｅＨｅａｄｅｒ，ｔａｂｌｅＤｅｔａｉｌ，ｄｓ．Ｔａｂｌｅｓ【０】． Ｃｏｌｕｍｎｓ ｋｉｎｄ＝＝ＲｅｐｏｒｔＧｅｎｅｒａｔｏｒＴｙｐｅ．ＢｅｓｔＦｉｔＣｏｌｕｍｎｓ ７ ｃｏｌｕｍｎｓＷｉｄｔｈ［ｉ】：ｃｏＩＷｉｄｔｈ，ｉ＝＝０ ７ ｔｒｕｅ：ｆａｌｓｅ）； ） ｔａｂｌｅＤｅｔａｉｌ．Ｅｎｄｌｎｉｔ０； ｔａｂｌｅＨｅａｄｅｒ．Ｅｎｄｌｎｉｔ０； ／／Ｐｌａｃｅ ｔｈｅ ｔａｂｌｅ ｏｎｔｏ ａ ｒｅｐｏｒｔ Ｓ Ｄｅｔａｉｌ ｂａｎｄ ） ／／／＜ｓｕｍｍａｒｙ＞ ／，／得到所有字段总宽度 ／／／＜／ｓｕｍｍａ ｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｃｏｌｕｍｎｓＷｉｄｔｈ。。＞＜／ｐａｒａｍ＞ ，／／＜ｒｅｔｕｍｓ＞＜／ｒｅｔｕｍｓ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｉｎｔ ＧｅｔＴｏｔａｌＷｉｄｔｈ（Ｌｉｓｔ＜ｉｎｔ＞ｃｏｌｕｍｎｓＷｉｄｔｈ） ｛ ｉｎｔ ｉ＝０： ｆｏｒｅａｃｈ（ｉｎｔ ｃｏＩＷｉｄｔｈ ｉｎ ｃｏｌｕｍｎｓＷｉｄｔｈ） ｉ＋＝ｃｏｌＷｉｄｔｈ； ｒｅｔｕｒｎ ｉ： ） ／／／＜ｓｕｍｍａｒｙ＞ ／／／得到自适应宽度模式下各个报表列的宽度列表 ／／／＜／ｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝“ｒｅｐ”＞＜／Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｄａｔａＴａｂｌｅ“＞＜，Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝ ｆｏｎｔ“＞＜／Ｄａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝。‘ｐｉｖｏｔ”＞＜／ｐａｒａｍ＞ ／／／＜ｒｅｔｕｍｓ＞＜／ｒｅｔｕｒｎｓ＞ ｐｒｉｖａｔｅ Ｌｉｓｔ＜ｉｎｔ＞ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＡｓＰｉｖｏｔＧｒｉｄＷｉｄｔｈ （ＸｔｒａＲｅｐｏｒｔ ｒｅｐ，ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ，Ｆｏｎｔ ｆｏｎｔ，ＰｉｖｏｔＧｒｉｄ Ｃｏｎｔｒｏｌ ｐｉｖｏｔ） ｛ Ｌｉｓｔ＜ｉｎｔ＞ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ＝ｎｅｗ Ｌｉｓｔ＜ｉｎｔ＞０； ｆｌｏａｔ ｍａｘＷｉｄｔｈ＝Ｏ： ｆｌｏａｔ ｔｅｍｐＷｉｄｔｈ＝０： ｆｌｏａｔ ｉＡＩＩＷｉｄｔｈ＝（ｒｅｐ．ＰａｇｅＷｉｄｔｈ一（ｒｅｐ．Ｍａｒｇｉｎｓ．Ｌｅｆｔ －４ｒｅｐ．Ｍａｒｇｉｎｓ．Ｒｉｇｈｔ））； ｆｏｒ（ｉｎｔ ｉ＝Ｏ：ｉ＜ｐｉｖｏｔ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ；ｉ＋＋） ∥ｉｆ（（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ！：ＰｉｖｏｔＡｒｅａ．ＤａｔａＡｒｅａ） ／／＆＆（ｐｉｖｏｔ Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ！＝ＰｉｖｏｔＡｒｅａ．ＦｉｌｔｅｒＡｒｅａ）Ｊ ｉｆ（（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）） ｔｅｍｐＷ ｉｄｔｈ：ｔｅｍｐＷｉｄｔｈ ４－ｐｉｖｏｔ，Ｆｉｅｌｄｓ［ｉ］，Ｗｉｄｔｈ； ｆｏｒ《ｉｎｔ ｉ＝Ｏ：ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｉ＋＋） ｛ ＰｉｖｏｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｉ．Ｏ）： ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ＝＝ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｆ ｔｅｍｐＷｉｄｔｈ＝ｔｅｍｐＷｉｄｔｈ ４－ｐｃｅａ．ＣｏｌｕｍｎＦｉｅｌｄ．Ｗｉｄｔｈ； ｝ ｅｌｓｅ ｛ ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ．ＴｏＳｔｒｉｎｇ（）＝：”ＧｒａｎｄＴｏｔａｌ”） （ ｔｅｍｐＷｉｄｔｈ＝ｔｅｍｐＷｉｄｔｈ ４－ｐｃｅａ．Ｂｏｕｎｄｓ．Ｗｉｄｔｈ； ） ） ） ｆｌｏａｔ ｉＢＬ＝ｔｅｍｐＷｉｄｔｈ／ｉＡｔｌＷｉｄｔｈ； ，／这里做一个调整：若行字段的宽度超过纸宽的一半、 ／／贝Ｕ按特定比例来计算比例。 ｆｏｒ（ｉｎｔ ｊ＝Ｏ ｊ＜ｄａｔａＴａｂｌｅ Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ；ｊ＋十） ｛ ｆｏｒ（ｉｎｔ ｉ＝０ ｉ＜ｐｉｖｏｔ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ． ｉｆ｛ＩｓＤａｔａＣｅｌｌＢＦｉｔＣｏｌｕｍＷｉｄｔｈ）／／ｌ￣适应数据列宽度 （ ｉｆ 《（ｐｉｖｏｔ．Ｆｉｅｌｄｓ【＿】＿Ａｒｅａ！：ＰｉｖｏｔＡｒｅａ ＤａｔａＡｒｅａ）＆＆《ｐｉｖｏｔ Ｆｉｅｌｄｓｌｉ】．Ａｒｅａ！＝ＰｉｖｏｔＡｒｅａ．ＦｉｌｔｅｒＡｒｅａ）） ／／ｉｆ Ｉ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ． ／／ＲｏｗＡｒｅａ）ｌＩ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）ｌ ｌ／／（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ．ＤａｔａＡｒｅａ）） （ ｉｆ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ Ｃａｐｔｉｏｎ＝：ｄａｔａＴａｂｌｅ Ｃｏｌｕｍｎｓ［ｊ］．ＣｏｌｕｍｎＮａｍｅ） ｛ ｉｎｔ ｉＷｉｄｔｈ＝Ｃｏｎｖｅｒｔ．Ｔｏｌｎｔ３２（（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ｗｉｄｔｈ／ｉＢ Ｌ））： ｍａｘＷｉｄｔｈ＝ｍａｘＷｉｄｔｈ ４－ｉＷｉｄｔｈ； ｔｅｍｐＷｉｄｔｈ＝ｔｅｍｐＷｉｄｔｈ ４－ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］Ｗｉｄｔｈ； ｊＷｉｄｔｈ：Ｃｏｎｖｅｒｔ．ＴｏＩｎｔ３２（×ＲＣｏｎｖｅｒｔ．Ｃｏｎｖｅｒｔ（ｉＷｉｄｔｈ ＧｒａｐｈｉｃｓＵｎｉｔ．Ｐｉｘｅｌ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｉｎｃｈ） １００ ４－”： ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（ｉＷｉｄｔｈ）； ｝ ） ） ｅｌｓｅ ｛ ∥ｉｆ（（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ Ｉ＝ＰｉｖｏｔＡｒｅａ． ／／ＤａｔａＡｒｅａ）＆＆（ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ！＝ＰｉｖｏｔＡｒｅａ．ＦｉｌｔｅｒＡｒｅａ）） ｉｆ （（ｐｉｖｏｔ．Ｆｉｅｌｄｓ Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ ＲｏｗＡｒｅａ）ｌｌ（ｐｉｖｏｔ．Ｆｉｅｌｄｓ【ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）Ｉ （ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ａｒｅａ＝＝ＰｉｖｏｔＡｒｅａ．ＤａｔａＡｒｅａ）） （ 实用第 智慧密集 ｉｆ（ｐｉｖｏｔ．ＦｉｅｌｄｓⅢ．Ｃａｐｔｉｏｎ＝＝ｄａｔａＴａｂｌｅ。 Ｃｏｌｕｍｎｓ［ｊ］．ＣｏｌｕｍｎＮａｍｅ） ｛ ｉｎｔ｛Ｗｉｄｔｈ＝Ｃｏｎｖｅｒｔ，Ｔｏｌｎｔ３２（（ｐｉｖｏｔ．Ｆｉｅｉｄｓ［ｉ￣．Ｗ ｄｔｈ ｆ Ｂ Ｌ１１： ｍａｘＷｉｄｔｈ＝ｍａｘＷｉｄｔｈ ４－ｉＷｉｄｔｈ； ｔｅｍｐＷｉｄｔｈ＝ｔｅｍｐＷｉｄｔｈ－Ｉ－ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ｗｉｄｔｈ； ｉＷｉｄｔｈ ＝ Ｃｏｎｖｅｒｔ．Ｔｏｌｎｔ３２ ｆＸＲＣｏｎｖｅｒｔ．Ｃｏｎｖｅｒｔ （ｉＷｉｄｔｈ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｐｉｘｅｌ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｉｎｃｈ） １００＋１）： ｏｐｔｉｍａｌＣｏｔｕｍｎＷｉｄｔｈ．Ａｄｄ（ｉＷｉｄｔｈ）； ） ） ） ） ） ｆ｛ｌｓＤａｔａＣｅｌ１ＢＦｉｔＣＯｌｕｍＷｉｄｔｈ） ｛ ＃ｒｅｇｉｏｎ自适应数据歹Ｉｊ宽度 Ｌｉｓｔ＜ＰｉｖＯｔＧｒｉｄＦｉｅｌｄ＞ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ ＝ ＧｅｔＦ ｅｌｄｓＩｎＡｒｅａ（Ｄｉｖｏｔ，ＰｉｖｏｔＡｒｅａ．ＲｏｗＡｒｅａ）； ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ ＝ ＧｅｔＦｉｅｌｄｓＩｎＡｒｅａ（ｐｉｖｏｔ， ＰｉｖｏｔＡｒｅａ．ＣｏｌｕｍｎＡｒｅａ）； ｆｏｒ（ｉｎｔ ｉ：Ｏ：ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｉ＋十） ｛ ＰｉｖＯｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｉｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｉ，Ｏ）： ｓｔｒｉｎｇ ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ ： ｉｆ（ｐｃｅａ ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ＝＝ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｛ ｆｏｒｅａｃｈ（ＰｉｖｏｔＧ ｒｊｄＦｉｅｌｄ ｆｉｅｌｄ ｉｎ ｆｉｅｌｄｓｌｎＣｏｌｕｍｎＡｒｅａ） ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＋＝ｐｃｅａ．ＧｅｔＦｉｅｌｄＶａｌｕｅ （ｆｉｅｌｄ）．ＴｏＳｔｒｉｎｇ（）；／／ａｄｄ ｆｏｒｍａｔｔｉｎｇ ｉｆ ｉｔ＇ｓ ｎｅｃｅｓｓａｒｙ ／／ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ＝ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ． Ｒｅｍｏｖｅ（ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ）； ｉｎｔ ｔｅｍｐＷｉｄｔｈ０＝ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ（ｄａｔａＴａｂｌｅ， ｔｅｍｐＣｏｌｕｍｎＴｅｘｔ，ｆｏｎｔ）； ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（ｔｅｍｐＷｉｄｔｈ０）； ） ｅｌｓｅ （ ｉｆ（ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ．ＴｏＳｔｒｉｎｇ（）＝＝ ＧｒａｎｄＴｏｔａｌ“） ｛ ｉｎｔ ｔｅｍｐＷｉｄｔｈ０＝ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ（ｄａｔａＴａｂｌｅ，“ 合计“，ｆｏｎｔ）； ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（ｔｅｍｐＷｉｄｔｈ０）； ｝ ） ） ＃ｅｎｄｒｅｇｉｏｎ ） ｅｌｓｅ ｛ ＃ｒｅｇｉｏｎ非自适应数据列宽度 ｆｏｒ（ｉｎｔ ｉ＝０：ｉ＜ｐｉｖｏｔ．Ｃｅｌｌｓ．ＣｏｌｕｍｎＣｏｕｎｔ；ｉ＋＋） ６２＿ ２０１２．０９ 电麓缡栏技巧与 壤 ｂ ｛ ＰｉｖｏｔＣｅｌｌＥｖｅｎｔＡｒｇｓ ｐｃｅａ＝ｐｉｖｏｔ．Ｃｅｌｌｓ．ＧｅｔＣｅｌｌｌｎｆｏ（ｉ，Ｏ）： ｉｆ｛ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ＝＝ＰｉｖｏｔＧｒｉｄＶａｌｕｅＴｙｐｅ．Ｖａｌｕｅ） ｛ ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（Ｃｏｎｖｅｒｔ．ＴｏＩ ｎｔ３２ （（ｐｃｅａ．ＣｏｌｕｍｎＦｉｅｌｄ．Ｗｉｄｔｈ／ｉＢＬ）））： ｍａｘＷｉｄｔｈ＝ｍａｘＷｉｄｔｈ－ｔ－Ｃｏｎｖｅｒｔ．ＴｏＩｎｔ３２ （（ｐｃｅａ．ＣｏｌｕｍｎＦｉｅｌｄ．Ｗｉｄｔｈ／ｉＢＬ））： ｔｅｍｐＷｉｄｔｈ＝ｔｅｍｐＷｉｄｔｈ＋ｐｉｖｏｔ．Ｆｉｅｌｄｓ［ｉ］．Ｗｉｄｔｈ； ） ｅｌｓｅ （ ｉｆ《ｐｃｅａ．ＣｏｌｕｍｎＶａｌｕｅＴｙｐｅ ＴｏＳｔｒｉｎｇ（）＝＝”ＧｒａｎｄＴｏｔａｌ”） ｛ ｛ｎｔ ｉＣｏｌｕｍｎｓ＝ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ； ｉｎｔ ｉＬｅｎｇｔｈ＝ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ｃｏｕｎｔ； ｉｎｔ ｉＡｄｄ＝ｉＣｏｌｕｍｎｓ——ｉＬｅｎｇｔｈ； ｆｌｏａｔ ｉＬａｓｔＷｉｄｔｈ＝ ＡｌｌＷｉｄｔｈ—ｍａｘＷｉｄｔｈ； ｆｌｏａｔ；ＣｏｌｕｍｎＷｉｄｔｈ＝ｉＬａｓｔＷｉｄｔｈ，ｉＡｄｄ； ｉｎｔ ｉＣｏｌｕｍｎｗｉｄｅ ＝ Ｃｏｎｖｅｒｔ．ＴＯＩ ｎｔ３２ （Ｓｙｓｔｅｍ．Ｍａｔｈ．Ｔｒｕｎｃａｔｅ（ｉＬａｓｔＷｉｄｔｈ））； ｉｎｔ ｉＬａｓｔＣｏｌｕｍｎＷｉｄｔｈ＝Ｃｏｎｖｅｒｔ．ＴｏＩｎｔ３２（Ｓｙｓｔｅｍ． Ｍａｔｈ．Ｔｒｕｎｃａｔｅ《ｉＬａｓｔＷｉｄｔｈ—ｉＣｏｌｕｍｎｗｉｄｅ （ｉＡｄｄ一１）））： ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（ｉＣｏｌｕｍｎｗｉｄｅ）； ｜｜ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ，Ａｄｄ（ｐｃｅａ．Ｂｏｕｎｄｓ．Ｗｉｄｔｈ）； ） ） ｝ ＃ｅｎｄｒｅｇｉｏｎ ｝ ｒｅｔｕｒｎ ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ； ） ｐｒｉｖａｔｅ ｓｔａｔｉｃ ｉｎｔ ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ（ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ，ｓｔｒｉｎｇ Ｐ，Ｆｏｎｔ ｆｏｎｔ） ｛ ｉｎｔ ｍａｘＷｉｄｔｈ＝８Ｏ： ｎｔｔｅｍｐＷｉｄｔｈ＝８０； ｆｏｒ（ｉｎｔ ａ：Ｏ：ａ＜ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ。Ｃｏｕｎｔ；ａ＋＋） （ ．ｆ（ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［ａ］．Ｃａｐｔｉｏｎ＝＝ｐ） ｆｏｒ｛ｉｎｔ ｉ＝Ｏ：ｉ＜ｄａｔａＴａｂｌｅ．Ｒｏｗｓ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ｔｅｍｐＷｉｄｔｈ ＝ＴｅｘｔＲｅｎｄｅｒｅｒ．ＭｅａｓｕｒｅＴｅｘｔ （ｄａｔａＴａｂｌｅ．Ｒｏｗｓ［ｉ］［ａ］．ＴｏＳｔｒｉｎｇ０，ｆｏｎｔ）．Ｗｉｄｔｈ； ｍａｘＷｉｄｔｈ＝ｍａｘＷｉｄｔｈ＞ｔｅｍｐＷｉｄｔｈ？８０：ｔｅｍｐＷｉｄｔｈ； ｝ ） ∥ｍａｘＷｉｄｔｈ＝Ｃｏｎｖｅｒｔ．Ｔ０Ｉｎｔ３２｛×ＲＣｏｎｖｅｒｔ．Ｃｏｎｖｅｒｔ（ｍａｘＷｉｄｔｈ， ＧｒａｐｈｉｃｓＵｎｉｔ．Ｐｉｘｅｌ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｉｎｃｈ） １ ＯＯ＋１）： ｒｅｔｕｒｎ ｍａｘＷｉｄｔｈ： ） （下转第７０页） …… ………………………………～…………………… 实用第一 智慧密集 … … … … … … … …… … … ＪＳｃｒｏｌｌＰａｎｅ ｊＳｃｒｏｌｌＰａｎｅ２＝ｎｅｗ ＪＳｃｒｏ¨Ｐａｎｅ（）： ＪＴｅｘｔＡｒｅａ ＴｅｘｔＡｒｅａｌ：ｎｅｗ ＪＴｅｘｔＡｒｅａ（）； Ｄｉｍｅｎｓｉｏｎ ｓｃｒｅｅｎＳｉｚｅ＝Ｔｏｏｌｋｉｔ．ｇｅｔＤｅｆａｕＩｔＴＯＯＩｋＩｔ （）．ｇｅｔＳｃｒｅｅｎＳｉｚｅ（）： ｉｎｔ ｗｉｄｔｈ＝ｓｃｒｅｅｎＳｉｚｅ．ｗｉｄｔｈ； ＪＴｅｘｔＡｒｅａ ｉＴｅｘｔＡｒｅａ２＝ｎｅｗ ＪＴｅｘｔＡｒｅａ０； ｐｕｂｌｉｃ ＣｈａｔＰａｎｅｌ（ＭａｉｎＦｒａｍｅ ｆ）｛ ｔｈｉｓ．ｆ＝ｆ： ｆ．ｊＳｐｌｉｔＰａｎｅ１．ｒｅｍｏｖｅ（ｆ．ｊＳｐｌｉｔＰａｎｅ１．ｇｅｔＬｅｆｔＣｏｍｐｏｎｅｎｔ０）； ｆ ｓｅｔＬｏｃａｔｉｏｎ（ｗｉｄｔｈ—ｆ．ｗｉｄｔｈＭＦｄｅｆａｕｌｔ，Ｏ）： ——ｔｈｉｓ．ｓｅｔＬａｖＯｕｔ（ｂｏｒｄｅｒＬａｙｏｕｔ１） ｔｈｉｓ．ａｄｄ（ｉＰａｎｅｌｌ，ｉａｖａ．ａｗｔ ＢｏｒｄｅｒＬａｙｏｕｔ．ＣＥＮＴＥＲ）； ｔｈｉｓ．ａｄｄ￣Ｐａｎｅｌ２，ｉａｖａ．ａｗｔ．ＢｏｒｄｅｒＬａｙｏｕｔ．ＳＯＵＴＨ）； Ｂｕｔｔｏｎ１．ｓｅｔＴｅｘｔ（ 关闭”）： ｌＢｕｔｔｏｎ１．ａｄｄＡｃｔｉｏｎＬｊｓｔｅｎｅｒ（ｔｈｉｓ）： ｆ．ｊＳｐｌｉｔＰａｎｅ１．ｕｐｄａｔｅＵ１０； ｆ．ｊＳｐｌｉｔＰａｎｅ１．ｓｅｔＤｉｖｉｄｅｒＬｏｃａｔ ｏｎ（Ｏ）： ｆ ｓｅｔＶｉｓｉｂｌｅ（ｔｒｕｅ）； ） ｉＢｕｔｔｏｎ２．ｓｅｔＴｅｘｔ（”发送 ）： ｉＢｕｔｔｏｎ２．ａｄｄＡｃｔｉｏｎＬｉｓｔｅｎｅｒ（ｔｈｉｓ）； ｝ ／／发送按钮的事件处理 ｉｆ（ｅ．ｇｅｔＡｃｔｉｏｎＣｏｍｍａｎｄ０．ｅｑｕａｌｓ（“发送”））｛ ｉＰａｎｅｌ１．ｓｅｔＬａｙ０ｕｔ《ｂｏｒｄｅｒＬａｙｏｕｔ２）： ／／ｉ殳置ｂｏｒｄｅｒＬａｙｏｕｔ２中组件之间的垂直间距为１Ｏ个像素 ｂｏｒｄｅｒＬａｙｏｕｔ２．ｓｅｔＶｇａｐ（１ Ｏ）： ｉＴｅｘｔＡｒｅａ１．ｓｅｔＥｄｉｔａｂＩｅ（ｆａ｝ｓｅ）： Ｓｔｒｉｎｇ ｃｈａｔＵｓｅｒｎａｍｅ＝ｆ ｊＬｉｓｔ１．ｇｅｔＳｅｌｅｃｔｅｄＶａｌｕｅ０．ｔｏＳｔｒｉｎｇ０； Ｓｔｒｉｎｇ ｍｅｓｓａｇｅ＝ｊＴｅｘｔＡｒｅａ２．ｇｅｔＴｅｘｔ（）； ｊＴｅｘｔＡｒｅａ １．ａｐｐｅｎｄ（＂ｔｏ”＋ｃｈａｔＵｓｅｒｎａｍｅ＋“：“＋ｍｅｓｓａｇｅ＋。、ｎ”）： ｉＴｅｘｔＡｒｅａ２ ｓｅｔＴｅｘｔ（ ）： ｉＳｃｒｏｌｌＰａｎｅ２．ｓｅｔＰｒｅｆｅｒｒｅｄＳｉｚｅ（ｎｅｗ Ｄｉｍｅｎｓｉｏｎ（４００，６Ｏ））： ） ） ） ｉＰａｎｅｌ２．ａｄｄ（ｊＢｕｔｔｏｎ２）； ｉＰａｎｅｌ２．ａｄｄ（ｊＢｕｔｔｏｎ１）： ｊＰａｎｅｌ１．ａｄｄ（ｊＳｃｒｏｌｌＰａｎｅｌ，ｊａｖａ．ａｗｔ．ＢｏｒｄｅｒＬａｙｏｕｔ．ＣＥＮＴＥＲ）； ｊＳｃｒｏｔｌＰａｎｅ１．ｇｅｔＶｉｅｗｐｏｒｔ０．ａｄｄ（ｊＴｅｘｔＡｒｅａ１）： ｊＰａｎｅｌ１．ａｄｄ Ｓｃｒ０ｌｌＰａｎｅ２，ｊａｖａ．ａｗｔ．ＢｏｒｄｅｒＬａｙｏｕｔ．ＳＯＵＴＨ）； ｊＳｃｒｏｌｔＰａｎｅ２．ｇｅｔＶｉｅｗｐｏｒｔ０．ａｄｄ（ｊＴｅｘｔＡｒｅａ２）； ｝ 参考文献 ［１】Ｃａｙ ｓ．Ｈｏｒｓｔｍａｎｎ，Ｇａｒｙ Ｃｏｒｎｅｌ１．Ｊａｖａ核心技术．北京：机 械工业出版社，２００８． ｐｕｂｌｉｃ ｖｏｉｄ ａｃｔｉｏｎＰｅｒｆｏｒｍｅｄ（ＡｃｔｉｏｎＥｖｅｎｔ ｅ）｛ ［２］Ｐｅｔｅｒ ｖａｎ ｄｅｒ Ｌｉｎｄｅｎ．Ｊａｖａ ２教程（第六版）．北京：电子 工业出版社，２００５． ∥关闭按钮的事件处理 ｉｆ（ｅ．ｇｅｔＡｃｔｉｏｎＣｏｍｍａｎｄ０．ｅｑｕａｌｓ（ 关闭“））｛ ｉｆ（ｆ．ｊＳｐｌｉｔＰａｎｅ１．ｇｅｔＬｅｆｔＣｏｍｐｏｎｅｎｔ０ １＝ｎｕｌ１）（ ｆ ｓｅｔＳｉｚｅ（ｆ．ｗｉｄｔｈ．—ＭＦｄｅｆａｕｌｔ，ｆ．ｇｅｔＨｅｉｇｈｔ（））； ——［３】孙浏毅．Ｊａｖａ宝典．北京：电子工业出版社，２００９． （收稿日期：２０１１－１２—２４） ．Ｓ （上接第６２页） ／／／＜ｓｕｍｍａｒｙ＞ ｆ０ｒ（ｉｎｔ ｉ＝１：ｉ＜ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ｔｅｍｐＷｉｄｔｈ＝ＴｅｘｔＲｅｎｄｅｒｅｒ．ＭｅａｓｕｒｅＴｅｘｔ ／／／自动计算各个数据歹Ｕ的打印宽度 ／／／＜Ｉｓｕｍｍａｒｙ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝’’ｄａｔａＴａｂｌｅ”＞＜／ｐａｒａｍ＞ ／／／＜ｐａｒａｍ ｎａｍｅ＝”ｆｏｎｔ“＞＜／ｐａｒａｍ＞ ／／／＜ｒｅｔｕｒｎｓ＞＜／ｒｅｔｕｍｓ＞ ｐｒｉｖａｔｅ ｓｔａｔｉｃ Ｌｉｓｔ＜ｉｎｔ＞ＧｅｔＣｏｌｕｍｎｓＢｅｓｔＦｉｔＷｉｄｔｈ 《ｄａｔａＴａｂｌｅ．Ｃｏｌｕｍｎｓ［１】＿ＣｏｌｕｍｎＮａｍｅ．ＴｏＳｔｒｉｎｇ０，ｆｏｎｔ）．Ｗｉｄｔｈ； ｍａｘＷｉｄｔｈ＝５０＞ｔｅｍｐＷｉｄｔｈ ７ ５０：ｔｅｍｐＷｉｄｔｈ； ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（Ｃｏｎｖｅｒｔ．ＴＯＩｎｔ３２（×ＲＣＯｎＶｅｒｔ．Ｃｏｎｖｅｒｔ （ｍａｘＷｉｄｔｈ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｐｉｘｅｌ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｉｎｃｈ） １ ０Ｏ＋１））： ） ｒｅｔｕｒｎ ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ； （ＤａｔａＴａｂｌｅ ｄａｔａＴａｂｌｅ，Ｆｏｎｔ ｆｏｎｔ） ｛ Ｌｉｓｔ＜ｉｎｔ＞ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ＝ｎｅｗ Ｌｉｓｔ＜ｉｎｔ＞０； ｆｌｏａｔ ｍａｘＷｉｄｔｈ＝０： ） ） ） ｆｌｏａｔ ｔｅｍｐＷｉｄｔｈ＝０： ｆｏｒ（ｉｎｔ ｉ＝１：ｉ＜ｄａｔａＴａｂｌｅ．Ｒｏｗｓ．Ｃｏｕｎｔ；ｉ＋＋） ｛ ｔｅｍｐＷｉｄｔｈ＝ＴｅｘｔＲｅｎｄｅｒｅｒ．ＭｅａｓｕｒｅＴｅｘｔ（ｄａｔａＴａｂｌｅ．Ｒｏｗｓ ５ 结语 ＸｔｒａＲｅｐｏｒｔｓ是一套非常强大的报表控件，几乎可以满足 任何的报表打印需求。而如何挖掘它隐藏的高级使用技巧，则 是需要不断地总结、不断地分析。真诚希望与广大的读者朋友 们一起探讨软件开发中的更多技巧和思路。 （收稿日期：２０１２一Ｏ１—０５） ¨】ＩＯ】．ＴｏＳｔｒｉｎｇ０，ｆｏｎｔ）．Ｗｉｄｔｈ； ｍａｘＷｉｄｔｈ＝ｍａｘＷｉｄｔｈ＞ｔｅｍｐＷｉｄｔｈ？ｍａｘＷｉｄｔｈ：ｔｅｍｐＷｉｄｔｈ； ｝ ｏｐｔｉｍａｌＣｏｌｕｍｎＷｉｄｔｈ．Ａｄｄ（Ｃｏｎｖｅｒｔ．Ｔｏｌｎｔ３２（ＸＲＣｏｎｖｅｒｔ Ｃｏｎｖｅｒｔ （ｍａｘＷｉｄｔｈ，ＧｒａｐｈｉｃｓＵｎｉｔ．Ｐｉｘｅｌ，ＧｒａｐｈｉｃｓＵｎｉｔ Ｉｎｃｈ） １ ００＋１））：
