例子+讨论：动态设置交叉表

宿命的风

   最近为交叉报表的问题苦恼，记得以前有人发过一个动态设置的，找不到了，思路是设置足够多的字段，然后用代码设置标签和字段数据源，然后隐藏不需要显示的。
    我按此思路做了个例子，不知道有没有更好的办法~ 如果有的话，欢迎跟帖！~

todaynew

简单方法有两个：其一是导出为Excel表；其二是用列表框控件呈现记录。

叶海峰

todaynew 发表于 2012-9-17 18:43
简单方法有两个：其一是导出为Excel表；其二是用列表框控件呈现记录。

支持用列表框控件.
至于导出Excel,可以用OWC来代替一下,这样就能在窗体里面呈现Excel的效果.

宿命的风

导出就不考虑了，还需要进一步加工，虽然不复杂，但是“老板”很懒~ EXCEL也不会用~他要点个按钮就能看到结果~
列表框控件倒没用过，我试试先~
谢谢2位！！

ynjxw

我曾经参照过前辈的方法，不过有字段数限制，不满的有空格，表格宽度固定，不美观等缺点。

roych

这是刚开始接触Access找到的作品，忘了作者是谁了，现附上供参考：

当然，这是报表作品，楼主转换成窗体即可（相信这并非什么难事）。

宿命的风

ynjxw :
      字段肯定有限制了，如果字段太多的话，个人认为导出EXCEL是最好的选择了~  
      另：不需要的字段可以隐藏掉，不用出现空格在报表上；

roych：
    谢谢你~  我也是做的报表，不是窗体~ 不知道当年看到的是不是这个例子，原理应该是一样的，只是一直没用到交叉表，现在用到了，找不到了~

djt

我的做法是vba写一个类，所有的报表都调用这个类。
我做的系统，只用了2个报表，一个横向，一个纵向。所有的数据都是通过ado获取，然后调用类打印到报表上