水晶报表在VB里的使用

[xinshaw]

我有一个表，是由五个子表组成，而且这五个子表不一定都有数据，也就是说，只显示有数据的子表，而且要会自动地分页打印，每个子表的行数不一定，但要求自动分页美观平均，水晶报表中怎么强制定义每页只打印几行？而且每个子表的数据是存储在数据库中不同的表中的，要分别取数，而报表的source好像只能是一个recordset，这又应该如何做呢？

五个子表是从上到下的排列的

表头

子表1 列1 列2 列3 列4
子表2 列1 列2 列3 列4
子表3 列1 列2 列3 列4
子表4 列1 列2 列3 列4
子表5 列1 列2 列3 列4

表尾

[liuxum]

临时表就是一个表，或者视图也可以的；
我们只是把需要的数据存放在里面而已，用完都要删除的；

[liuxum]

当然是数据删除，不是删除表的；

[zhangjinjun]

我想问楼主一个问题！！

搂主：你好，我现在也是在使用水晶报表，有很多问题想请教，不知道可否？


我想请教你一个问题，在这里先行谢过了！！

请问如何在水晶报表4.5版本的设计器中使用水晶报表8.0以上版本的控件呢？或者你是怎么使用水晶报表的？因为我安装了水晶报表8.0，可是却不知道如何加载水晶报表的设计器，因为我看水晶报表自带的例子中设计器是加载在VB中的，不知是如何做到的？

[liuxum]

建议：
1：可以考虑建立临时表，把5个表的数据插到临时表中去；
2：可以按照子表进行分组，即如下面：
表头
****Group1**********
子表1 列1 列2 列3 列4
****Group1**********

****Group2**********
子表2 列1 列2 列3 列4
****Group2**********

****Group3**********
子表3 列1 列2 列3 列4
****Group3**********

****Group4**********
子表4 列1 列2 列3 列4
****Group4**********

****Group5**********
子表5 列1 列2 列3 列4
****Group5**********

表尾

[liuxum]

3:判断每当分组的标志（比如以子表的名称进行分组）改变的时候就换页

[xinshaw]

临时表应该如何建呢？

[planetike]

临时表是不是就是一个记录集啊。

[liuxum]

Private Sub Command1_Click()
Dim strSql As String
Dim strFile As String
'***SQL-Create
strSql = "select * from My_Table"
'****File Path
CrystalReport1.ReportFileName = "D:\report1.rpt"
'****DataBase Connect
CrystalReport1.Connect = "ODBC;DSN=ebis;UID=ebisho;PWD=ebisho;"
'****QuerySql
CrystalReport1.SQLQuery = strSql

CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowShowPrintBtn = True
CrystalReport1.RetrieveDataFiles
CrystalReport1.WindowState = crptMaximized
CrystalReport1.PrintReport


End Sub

[xinshaw]

to zhangjinjun :我用的是水晶报表8.5，也不大会用，只会加载静态表，至于以前的版本我没用过，8.5版本的只需要在工程窗口点击“添加->crystal report8.5”就行了。

我用查询语句更改表的内容总是不行，不知道怎么回事，网上的例子全是静态的。谁能给我一个动态更改数据的例子？