水晶报表数据显示问题

Question

再水晶报表软件中做好的报表，为什么在VB中调用的时候数据显示不出来那？纳闷

Answer 1

strPublicSql = "select top 80 person_no,card_no,person_name,sex,nation,enable,come_in_date from person "
rsImport.Open strPublicSql, strPubConnect, adOpenKeyset, adLockReadOnly
If rsImport.EOF Then
    rsImport.Close
    Exit Sub
End Ifcustom_BallGoinReport.Show 1
rsImport.Close
--------------------------------------------------Option Explicit
Private Sub Form_Load()
    Dim strPathName As String, strReportName As String, strSqlPath As String
    Dim rsPath As New ADODB.Recordset
    strSqlPath = "select mean from Parameter_tab where parameter_name='tabOrderFormReport'"
    rsPath.Open strSqlPath, strPubConnect, adOpenKeyset, adLockReadOnly
    If Not rsPath.EOF Then
        strPathName = rsPath.Fields(0).Value
    Else
        MsgBox "§ä¤£¨ì³øªí¸ô®|¡A½Ð»P¸ê°TÁp¨t¡I", vbCritical, "´£¿ô±z"
        Exit Sub
    End If
    strReportName = "custom_tabBallGoinReport.rpt"
    
    Screen.MousePointer = 11
    Set objReport = objApp.OpenReport(strPathName & strReportName, 1)
''    Set objReport = objApp.OpenReport("G:\Report\" & strReportName, 1)
    objReport.Database.SetDataSource rsImport
    objReport.ReadRecords
    CRViewer91.ReportSource = objReport
    CRViewer91.ViewReport
    
    Screen.MousePointer = 0
    
End SubPrivate Sub Form_Resize()
    CRViewer91.Top = 0
    CRViewer91.Left = 0
    CRViewer91.Height = ScaleHeight
    CRViewer91.Width = ScaleWidth
End Sub

Answer 2

参考：http://blog.csdn.net/myhgyp/archive/2005/01/13/252260.aspx