Crystal Report(水晶报表)的报表封装成VB的DLL

Staff_id Long

Name String 20

Age Long

Addr String 50

最后将其加入（Add）报表。

4、 把这一些字段排好到设计器的Details区，并根据需要对表头进行设置。

5、 回到clsCryReport，在类中加入如下的代码：

Option Explicit

Dim cry As New cryTestDllReport

Public Sub ShowReport(ByVal frm As Object, ByVal rsCryTestDll As ADODB.Recordset)

''''frm是用于传递显示报表的窗体对象的，该窗体需要有Crystal Report的CRViewer控件。

''''rsCryTesllDll是报表显示的数据记录集。

cry.Database.SetDataSource rsCryTestDll