水晶报表中如何显示Recordset中的数据？

[电脑王杨扬]

我已经有一个rpt文件，并且表头等已设置好并保存在VB的设计器中。但我现在想在Report Viewer中显示，该如何做呢？请注意，报表中的数据来源于Recordset。请高手能给出例子代码，以便于我理解，谢谢了。

[电脑王杨扬]

但rpt文件如何设置字段呢？因为我还不知道Recordset中是什么字段呢，是动态的。请 jxhaq(atp)指点！谢谢！一定加分！

[Cocoky]

你看看水晶报表自带的例子
Report Object Creat API
对你很有帮助且可以解决所有问题

[jxhaq]

Dim CrAppl As New CRAXDRT.Application
Dim CrRep As New CRAXDRT.Report


Private Sub Form_Load()
On Error GoTo err
dim cn as adodb.connection
dim rssql as adodb.recordset
dim strsql as string
Dim strPath As String
strsql="select * from pubs" ---你的SQL语句
If Right(App.Path, 1) = "\" Then
strPath = App.Path & "adorsout.rpt"
Else
strPath = App.Path + "\adorsout.rpt"
End If

set rssql=new adodb.recordset
rssql.open strsql
Set CrRep = CrAppl.OpenReport(strPath)
CrRep.Database.Tables(1).SetDataSource rssql, 3

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = CrRep
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Exit Sub

err:
MsgBox err.Description

End Sub

这是我以前编写的软件中的代码。已通过调试,如果成功了，记得帮我加分。老兄我没分了

[电脑王杨扬]

有哪位知道，能再指点一下吗？