如何用VB制作三维报表
做过报表开发的程序员们都知道,在VB中实现报表控制是很困难的,尤其是复杂的三维报表就更是难上加难了,这里我们介绍一个比较简单的方法。
首先您需要使用CELL组件为基础来进行开发,并用他提供的报表设计器:“华表”来设计表结构,如:表格线,对齐方式,字体等。完成后将该表保存成为*.CLL的文件。并在VB中调用CELL对象的OPENFILE方法将该文件打开。
Private Sub Form_Load()
Cell1.OpenFile "C:\报表1.cll", ""
End Sub
编译一下,一个二维表就已经形成了,接下来开始设计第三维。方法是在指定的单元格中插入CELL中的下拉窗口控件,该控件可以像一般的 ComboBox一样显示普通的数据,也可以显示一个记录集或一张CELL的表页。用如下的方法实现:
1. 将要显示的三维表定义成为一个华表记录集
Cell1.RSDefCellSet "name", Chr(34) & "" & Chr(34), "第2页!A1:D10"
该语句的作用是定义一个名为name的记录集,这个记录集的内容是表格中第2页中A1:D10的内容。
2.将记录集与CELL中的下拉窗口控件相关链
Cell1.SetDropwndCell 1, 1, 0, Cell1.RSGetSetIndex("name"), 0, 1
该语句的作用是在表格的A1单元格上定义了一个下拉窗口控件,并且将已经定义好的名为“name”的记录集与与之相关连。
3.显示下拉窗口中的三维表
在A1单元格中点击下拉按纽将弹出三维表,其中显示的数据就是记录集“name”中包含的内容。
首先您需要使用CELL组件为基础来进行开发,并用他提供的报表设计器:“华表”来设计表结构,如:表格线,对齐方式,字体等。完成后将该表保存成为*.CLL的文件。并在VB中调用CELL对象的OPENFILE方法将该文件打开。
Private Sub Form_Load()
Cell1.OpenFile "C:\报表1.cll", ""
End Sub
编译一下,一个二维表就已经形成了,接下来开始设计第三维。方法是在指定的单元格中插入CELL中的下拉窗口控件,该控件可以像一般的 ComboBox一样显示普通的数据,也可以显示一个记录集或一张CELL的表页。用如下的方法实现:
1. 将要显示的三维表定义成为一个华表记录集
Cell1.RSDefCellSet "name", Chr(34) & "" & Chr(34), "第2页!A1:D10"
该语句的作用是定义一个名为name的记录集,这个记录集的内容是表格中第2页中A1:D10的内容。
2.将记录集与CELL中的下拉窗口控件相关链
Cell1.SetDropwndCell 1, 1, 0, Cell1.RSGetSetIndex("name"), 0, 1
该语句的作用是在表格的A1单元格上定义了一个下拉窗口控件,并且将已经定义好的名为“name”的记录集与与之相关连。
3.显示下拉窗口中的三维表
在A1单元格中点击下拉按纽将弹出三维表,其中显示的数据就是记录集“name”中包含的内容。