水晶报表问题?
水晶报表10.0
Dim Report As New CrystalReport1'
Public strSql As String'要打印的数据
Public strReportName As String'报表文件夹
Private Sub CRViewer1_CloseButtonClicked(UseDefault As Boolean)
End Sub
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim oApp As New CRAXDRT.Application
Dim oRpt As CRAXDRT.Report
Dim strTemp As String
Screen.MousePointer = vbHourglass
'查找报表文件
Select Case strReportName
Case "0"
strReportName = "rclist.rpt"'这些文件已用水晶报表10.0做好。
Case "1"
strReportName = "rslistjb.rpt"
End Select
strTemp = App.Path
If Right(App.Path, 1) <> "\" Then strTemp = strTemp & "\"
strReportName = strTemp & "crystal\" & strReportName
If Dir(strReportName) = "" Then
MsgBox "没有找到报表文件!预览失败!", vbInformation, "提示"
Exit Sub
End If
strSql = "select top 10 * from q_RcList Order by person_nation desc"
'每次这个地方传过来的sql不更新,还是设计时的数据,是怎么回事,请大家指教?谢谢!
Set rs = ExSQL(strSql)
Debug.Print rs.RecordCount
'strReportName = "\crystal\rclist.rpt" '定义要引用的rpt文件
Set oRpt = oApp.OpenReport(strReportName, 1)
oRpt.Database.SetDataSource rs '连接水晶报表和数据源
oRpt.ReadRecords
CRViewer1.Refresh
'CRViewer1.PrintReport
CRViewer1.ReportSource = oRpt '启用水晶报表的预览功能
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub