如何用VB制作三维报表

如何用VB制作三维报表
作过报表开发的程序员们都知道，在VB中实现报表控制是很困难的，尤其是复杂的三维报表就更是难上加难了，这里我们介绍一个比较简单的方法。首先您需要使用CELL组件为基础来进行开发，并用他提供的报表设计器：“华表”来设计表结构，如：表格线，对齐方式，字体等。完成后将该表保存成为*.CLL的文件。并在VB中调用CELL对象的OPENFILE方法将该文件打开。
Private Sub Form_Load()
Cell1.OpenFile "c:\报表１.cll", ""
End Sub
编译一下，一个二维表就已经形成了，接下来开始设计第三维。方法是在指定的单元格中插入CELL中的下拉窗口控件，该控件可以像一般的 ComboBox一样显示普通的数据，也可以显示一个记录集或一张CELL的表页。用如下的方法实现：
１、 将要显示的三维表定义成为一个华表记录集：
Cell1.RSDefCellSet "name", Chr(34) & "" & Chr(34), "第2页!A1:D10"
该语句的作用是定义一个名为name的记录集，这个记录集的内容是表格中第2页中A1:D10的内容。
２、 将记录集与CELL中的下拉窗口控件相关链。
Cell1.SetDropwndCell 1, 1, 0, Cell1.RSGetSetIndex("name"), 0, 1
该语句的作用是在表格的A1单元格上定义了一个下拉窗口控件，并且将已经定义好的名为“name”的记录集与与之相关连。
３、 显示下拉窗口中的三维表。
在A1单元格中点击下拉按纽将弹出三维表，其中显示的数据就是记录集“name”中包含的内容。最终效果图如下：
 
编后语：
感谢Engima和野人花园乐队的专辑，舒缓空灵的天籁之音，陪伴我写完这篇文章。
另外，为李秉华的巧克力派默哀１分钟。
//Cell组件控件可在本网站下载，或上网站http://www.cellsoft.cc下载（它很有打印及预览、图表、公式、自定义函数等功能）