VBcodeAccess97报表问题anen

Ａｃｃｅｓｓ９７的报表解决方案利用ＯＬＥ自动化解决ＡＣＥＳＳ９７中文版报表生成器直线不能往下顺延的缺陷ＡＣＣＥＳＳ９７　是一个非常优秀的数据库软件，　它不仅能充当办公自动化的桌面数据管理工具，　也是一个开发Ｃｌｉｅｎｔ／Ｓｅｒｖｅｒ　产品的优秀前端开发工具．　它的特点是易学易用、工具丰富、不需写大量代码就可以在很短的时间内开发出界面优美且功能强大的系统，长期以来受到广大开发者的青睐。

但笔者在使用时发现其报表生成器中有一个明显不适合我国国情的缺陷，就是当设置报表ＤＥＴＡＩＬ　节上的字段长度因为横向空间不够而设为自动向下顺延（Ｃａｎ　Ｇｒｏｗ　属性为Ｔｒｕｅ）时，如果字段旁有竖线（国内大部分公文报表都有竖线，而国外则很少有），则竖线不能和字段一起向下顺延。

使整个报表看起来不美观。

这个缺陷在ＡＣＣＥＳＳ２．０　和ＡＣＣＥＳＳ９７　中文版上都有，　而在ＦｏｘＰｒｏ２．５Ｂ／３．０／５．０　下却没有。

据微软技术服务部的工作人员说是由于本地化时测试不够原因所致。

为此，笔者在ＡＣＣＥＳＳ　内采用了ＯＬＥ　自动化！方法，将ＡＣＣＥＳＳ９７　查询生成的表送交ＥＸＣＥＬ９７　进行处理（分类汇总、打印、预演），较好地解决了这个问题。

由于ＡＣＣＥＳＳ９７　和ＥＸＣＥＬ９７　的ＶＢＡ　在９７　版本上几乎完全兼容，在ＥＸＣＥＬ９７　下录制的宏代码只需在ＡＣＣＥＳＳ　下稍加修改就行了，所以采用此方法和用内部报表生成器设计所用的时间差不多。

整个工作需要下面几步：在ＥＸＣＥＬ９７　下设计好报表的样式，包括表头、页眉、页码等，对需要自动翻转的列，在＂　单元格格式设置＂　下设为＂　自动换行＂。

在ＥＸＣＥＬ９７　下录制好当数据送入后进行的操作宏（如分类汇总、加边框线，加空行、打印输出、预演等动作）。

在ＡＣＣＥＳＳ　下用ＶＢＡ　语句和ＤＡＯ　对象的方法将数据送入ＥＸＣＥＬ　表内，并将ＥＸＣＥＬ　下宏操作变成ＡＣＣＥＳＳ　下的语句。

以下是ＡＣＣＥＳＳ９７　下的程序代码，实际应用程序界面是一个对话框屏幕（ＦＯＲＭ），　上面有五个下拉框（Ｃｏｍｂ＿）　和一个文字框（Ｔｅｘｔ），　由用户选择相应的信息，然后用户按＂　确定＂　命令按钮执行程序。

其中有些属性和方法在ＡＣＣＥＳＳ２．０　下不能使用，　可采用相应的语句．Ｐｒｉｖａｔｅ　Ｓｕｂ　确认＿Ｃｌｉｃｋ（）Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ＥｒｒｏｒＨａｎｄｌｅｒＤｉｍ　ｓｔＤｏｃＮａｍｅ　Ａｓ　ＳｔｒｉｎｇＤｉｍ　ｋ　Ａｓ　ＩｎｔｅｇｅｒｓｔＤｏｃＮａｍｅ　＝　＂Ｐｑｒｙ＿ＹＥＡＲ＂ＤｏＣｍｄ．ＯｐｅｎＱｕｅｒｙ　ｓｔＤｏｃＮａｍｅ　＇　从原始表内根据用户输入的信息条件运行＂　生成表查询＂，　生成一个供打印用的表．＇　增加空记录处理－－　为了保证记录数少时也打印整张表．Ｉｆ　Ｖａｌ（Ｍｅ！［Ｃｏｍｂ　空行］）　＞　０　Ｔｈｅｎ　＇　如果用户输入了大于０　的数值，　表示加空行Ｆｏｒ　ｋ　＝　１　Ｔｏ　Ｖａｌ（Ｍｅ！［Ｃｏｍｂ　空行］）ＣｕｒｒｅｎｔＤｂ．Ｅｘｅｃｕｔｅ　＂ＩＮＳＥＲＴ　ＩＮＴＯ　Ｐｑｒｙ＿ＹＥＡＲ（　项目类）　ＶＡＬＵＥＳ　（＇　空行空行空行＇）；＂Ｎｅｘｔ　ｋＥｎｄ　ＩｆＤｉｍ　ｍｓｇＶａｒ　Ａｓ　Ｉｎｔｅｇｅｒ＇　定义ＥＸＣＥＬ　对象变量＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Ｄｉｍ　ｘｌｏｂｊ　Ａｓ　ＯｂｊｅｃｔＤｉｍ　ｘｌｓｈｅｅｔｏｂｊ　Ａｓ　ＯｂｊｅｃｔＤｉｍ　ｘｌｒａｎｇｅ　Ａｓ　Ｏｂｊｅｃｔ＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＇　定义ＡＣＥＳＳ　记录集对象变量Ｄｉｍ　ｄｂｓ　Ａｓ　Ｄａｔａｂａｓｅ，　ｒｓｔ　Ａｓ　ＲｅｃｏｒｄｓｅｔＤｉｍ　ｓｔｒＳＱＬ　Ａｓ　ＳｔｒｉｎｇＤｉｍ　ｒｅｃＴｏｔａｌ，　ｆｉｅｌｄＴｏｔａｌ　Ａｓ　Ｉｎｔｅｇｅｒ　＇　ｒｅｃＴｏｔａｌ：表示该表内记录总数；ｆｉｅｌｄＴｏｔａｌ　表示字段总数Ｄｉｍ　ｉ，　ｊ　Ａｓ　Ｉｎｔｅｇｅｒｉ　＝　０ｊ　＝　０＇　Ｒｅｔｕｒｎ　ｒｅｆｅｒｅｎｃｅ　ｔｏ　ｃｕｒｒｅｎｔ　ｄａｔａｂａｓｅ．Ｓｅｔ　ｄｂｓ　＝　ＣｕｒｒｅｎｔＤｂ　＇　当前数据库Ｓｅｔ　ｒｓｔ　＝　ｄｂｓ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（＂Ｐｑｒｙ＿ＹＥＡＲ　＂）　＇　选择记录集ｒｅｃＴｏｔａｌ　＝　ｒｓｔ．ＲｅｃｏｒｄＣｏｕｎｔ　＇　得出记录数ｆｉｅｌｄＴｏｔａｌ　＝　ｒｓｔ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ　＇　得出字段数＇－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－＇　建立ＥＸＣＥＬ　对象Ｓｅｔ　ｘｌｏｂｊ　＝　ＣｒｅａｔｅＯｂｊｅｃｔ（＂Ｅｘｃｅｌ．Ａｐｐｌｉｃａｔｉｏｎ．８＂）＇　打开设计好的ＥＸＣＥＬ　表－－ＲＥＰＯＲＴ．ＸＬＳｘｌｏｂｊ．Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ　ＦｉｌｅＮａｍｅ：＝ｐＰａｔｈｎａｍｅ　＆　＂　ＲＥＰＯＲＴ．ｘｌｓ＂Ｓｅｔ　ｘｌｓｈｅｅｔｏｂｊ　＝　ｘｌｏｂｊ．ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｗｏｒｋｓｈｅｅｔｓ（＂ＲＥＰＯＲＴ　＂）＇　指向工作表＇　如果是改动过的表，　不再打开Ｉｆ　ＭｓｇＢｏｘ（＂　当前打印表格文件中已有数据，是否需要更新？＂＆　Ｃｈｒ（１３）　＆　＿＂　提示：　只有对数据进行改动后，　才需要更新．＂，　６８）＝　ｖｂＹｅｓ　ＴｈｅｎＤｏＣｍｄ．Ｈｏｕｒｇｌａｓｓ　Ｔｒｕｅ　＇　由于时间较长，将鼠标设为沙漏形状ｘｌｓｈｅｅｔｏｂｊ．Ｒｏｗｓ（＂５：２００＂）．Ｓｅｌｅｃｔ　＇　选定区域ｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ　Ｓｈｉｆｔ：＝－４１６２　＇注意！　原录制宏中－４１６２　为ｘｌｎｏｎｅ，　是ＥＸＣＥＬ９７　的常量，　但在ＡＣＣＥＳＳ　下却不认，　只能到ＥＸＣＥＬ　下的对象浏览器去查询对应的常数．＇　开始向ＥＸＣＥＬ　传送数据Ｄｏ　Ｕｎｔｉｌ　ｒｓｔ．ＥＯＦＦｏｒ　ｊ　＝　１　Ｔｏ　ｆｉｅｌｄＴｏｔａｌｘｌｓｈｅｅｔｏｂｊ．ｃｅｌｌｓ（５　＋　ｉ，　ｊ）．Ｖａｌｕｅ　＝　ｒｓｔ．Ｆｉｅｌｄｓ（ｊ　－　１）Ｎｅｘｔ　ｊｒｓｔ．ＭｏｖｅＮｅｘｔｉ　＝　ｉ　＋　１Ｌｏｏｐｒｓｔ．Ｃｌｏｓｅ＇在ＥＸＣＥＬ中调整，具体常数参见ＥＸＣＥＬ下的对象浏览器ｘｌｓｈｅｅｔｏｂｊ．Ｒａｎｇｅ（＂Ａ４：Ｑ＂　＆　Ｔｒｉｍ（Ｓｔｒ（ｒｅｃＴｏｔａｌ　＋　４）））．Ｓｅｌｅｃｔ　＇　选定范围＇以下为设置边框线录制的宏代码，已删除了相似的语句．ｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ．Ｂｏｒｄｅｒｓ（５）．ＬｉｎｅＳｔｙｌｅ　＝　－４１４２ｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ．Ｂｏｒｄｅｒｓ（６）．ＬｉｎｅＳｔｙｌｅ　＝　－４１４２Ｗｉｔｈ　ｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ．Ｂｏｒｄｅｒｓ（７）．ＬｉｎｅＳｔｙｌｅ　＝　１．Ｗｅｉｇｈｔ　＝　－４１３８．ＣｏｌｏｒＩｎｄｅｘ　＝　－４１０５Ｅｎｄ　ＷｉｔｈＷｉｔｈ　ｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ＇　确定是合计在表上还是在表尾Ｉｆ　Ｍｅ！［Ｆｒａｍ　位置］　＝　１　Ｔｈｅｎ．Ｓｕｂｔｏｔａｌ　ＧｒｏｕｐＢｙ：＝２，　Ｆｕｎｃｔｉｏｎ：＝－４１５７，ＴｏｔａｌＬｉｓｔ：＝Ａｒｒａｙ（６，　９，　１０，　＿１１，　１２，　１３，　１４，　１５，　１６），　Ｒｅｐｌａｃｅ：＝Ｔｒｕｅ，ＰａｇｅＢｒｅａｋｓ：＝Ｆａｌｓｅ，　＿ＳｕｍｍａｒｙＢｅｌｏｗＤａｔａ：＝ＦａｌｓｅＥｌｓｅ．Ｓｕｂｔｏｔａｌ　ＧｒｏｕｐＢｙ：＝２，　Ｆｕｎｃｔｉｏｎ：＝－４１５７，ＴｏｔａｌＬｉｓｔ：＝Ａｒｒａｙ（６，　９，　１０，　＿１１，　１２，　１３，　１４，　１５，　１６），　Ｒｅｐｌａｃｅ：＝Ｔｒｕｅ，ＰａｇｅＢｒｅａｋｓ：＝Ｆａｌｓｅ，　＿ＳｕｍｍａｒｙＢｅｌｏｗＤａｔａ：＝ＴｒｕｅＥｎｄ　ＩｆＥｎｄ　Ｗｉｔｈ＇　根据用户的选择设置页眉和页尾。

Ｗｉｔｈ　ｘｌｓｈｅｅｔｏｂｊ．ＰａｇｅＳｅｔｕｐ．ＬｅｆｔＨｅａｄｅｒ　＝　＂＂　＆　Ｃｈｒ（１０）　＆　＂＂　＆　Ｃｈｒ（１０）　＆　＂＂　＆　Ｍｉｄ（Ｍｅ！［Ｃｍｂｏ　单位］，　４）．ＣｅｎｔｅｒＨｅａｄｅｒ　＝　＂＆＂＂　宋体，　加粗＂＂＆１８　＂　＆　Ｍｅ！［Ｃｍｂｏ　年度］　＆　＂　年＂　＆　Ｍｉｄ（Ｍｅ！［Ｃｍｂｏ　类别］，　４）　＆　＂ＸＸＸ　表＂Ｅｎｄ　Ｗｉｔｈｘｌｓｈｅｅｔｏｂｊ．Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ＇　将空行内容清掉ｋ　＝　Ｖａｌ（Ｍｅ！［Ｃｏｍｂ　空行］）Ｉｆ　Ｖａｌ（Ｍｅ！［Ｃｏｍｂ　空行］）　＞　０　ＴｈｅｎＤｉｍ　ｃｏｎｔｅｎｔ　Ａｓ　Ｓｔｒｉｎｇｉ　＝　５ｃｏｎｔｅｎｔ　＝　ｘｌｓｈｅｅｔｏｂｊ．ｃｅｌｌｓ（ｉ，　２）．ｆｏｒｍｕｌａＲ１Ｃ１Ｄｏ　Ｗｈｉｌｅ　ＩｎＳｔｒ（１，　ｃｏｎｔｅｎｔ，　＂　空行空行空行＂）　＝　０ｉ　＝　ｉ　＋　１ｃｏｎｔｅｎｔ　＝　ｘｌｓｈｅｅｔｏｂｊ．ｃｅｌｌｓ（ｉ，　２）．ｆｏｒｍｕｌａＲ１Ｃ１Ｌｏｏｐｘｌｓｈｅｅｔｏｂｊ．Ｒａｎｇｅ（＂Ｂ＂　＆　Ｔｒｉｍ（Ｓｔｒ（ｉ　－　ｋ　＋　５））　＆　＂：＂　＆　＂Ｑ＂＆　Ｔｒｉｍ（Ｓｔｒ（ｉ　＋　５）））．Ｓｅｌｅｃｔｘｌｏｂｊ．Ｓｅｌｅｃｔｉｏｎ．ＣｌｅａｒＣｏｎｔｅｎｔｓｘｌｓｈｅｅｔｏｂｊ．Ｒａｎｇｅ（＂Ａ１＂）．ＳｅｌｅｃｔＥｎｄ　ＩｆＥｌｓｅ　＇　不更新ｘｌｓｈｅｅｔｏｂｊ．ＡｃｔｉｖａｔｅＥｎｄ　Ｉｆｘｌｏｂｊ．ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＰｒｉｎｔＰｒｅｖｉｅｗ　＇　预演报表＇　如为打印：ｘｌｏｂｊ．ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＰｒｉｎｔＯｕｔＤｏＣｍｄ．Ｈｏｕｒｇｌａｓｓ　Ｆａｌｓｅ　＇　恢复鼠标形状ｘｌｏｂｊ．Ｖｉｓｉｂｌｅ　＝　Ｔｒｕｅ　＇　让ＥＸＣＥＬ　可见清除对象变量空间，节省内存Ｓｅｔ　ｄｂｓ　＝　ＮｏｔｈｉｎｇＳｅｔ　ｘｌｏｂｊ　＝　Ｎｏｔｈｉｎｇｘｌｏｂｊ．ｑｕｉｔ　＇　关闭ＥＸＣＥＬＥｘｉｔ　ＳｕｂＥｒｒｏｒＨａｎｄｌｅｒ：　＇　出错处理ＤｏＣｍｄ．Ｈｏｕｒｇｌａｓｓ　ＦａｌｓｅＭｓｇＢｏｘ　＂Ｅｒｒｏｒ　ｎｕｍｂｅｒ　＂　＆　Ｅｒｒ．Ｎｕｍｂｅｒ　＆　＂：　＂　＆　Ｅｒｒ．Ｄｅｓｃｒｉｐｔｉｏｎ＇　Ｒｅｓｕｍｅ　ｗｉｔｈ　ｓｔａｔｅｍｅｎｔ　ｆｏｌｌｏｗｉｎｇ　ｏｃｃｕｒｒｅｎｃｅ　ｏｆ　ｅｒｒｏｒ．Ｒｅｓｕｍｅ　ＮｅｘｔＥｎｄ　Ｓｕｂ通过这个例子我们看到在ＯＦＦＩＣＥ９７　下利用ＯＬＥ　自动化扩展应用程序的功能是多么方便和强大。

用ＥＸＣＥＬ　完成的报表的优点是格式美观，　修改方便．　缺点是第一次生成ＥＸＣＥＬ　表格时速度较慢．本例是用ＥＸＣＥＬ　对数据进行报表操作，　其实也可参照此例的方法在ＥＸＣＥＬ　上建立图形统计、财务分析、数据透视表分析等应用程序，只要在ＥＸＣＥＬ　下录制相应的宏，再加到ＡＣＣＥＳＳ　下就行了。