请教用水晶报表怎么实现打印用SQL语句根据条件查询的得到数据啊 谢谢！！

Question

谢谢！！

Answer 1

在DataEnvironment中有填写SQL语句这一选项

Answer 2

Option ExplicitPrivate Sub Form_Load()
Screen.MousePointer = vbHourglass
Set Report = (App.Path & "\report\report2.rpt")
CRViewer91.ReportSource = Report
'CRViewer91.ViewReport     '预览报表
CRViewer91.PrintReport          
 Screen.MousePointer = vbDefaultEnd SubPrivate Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd Sub

Answer 3

Set Report = (App.Path & "\report\report2.rpt") 为什么出错？类型不匹配

Answer 4

老兄我写的
Set Report = (App.Path & "\report\report2.rpt")这一句总是提示"type mismatch"的错误
请问是怎么回事？

Answer 5

Dim CryApp   As New CRAXDDRT.Application
       Dim Report   As CRAXDDRT.Report
         
       Dim strcnn   As String
       Set Report = CryApp.OpenReport(App.path & "\progress.rpt")
 
        Set conn = New ADODB.Connection
     Set rs = New ADODB.Recordset
         
       strcnn = "Provider=SQLOLEDB.1;Password=**;Persist Security Info=True;User ID=sa;Initial Catalog=**;Data Source=**"
       conn.Open strcnn
         
      rs.Open "select  *  from  orderdatail where itemid='" & Text1.Text & "' ", conn, adOpenDynamic, adLockBatchOptimistic
       Report.Database.SetDataSource rs
 
Report.DiscardSavedData
       Screen.MousePointer = vbHourglass
       CRViewer91.ReportSource = Report
       CRViewer91.Refresh
       CRViewer91.ViewReport
       Screen.MousePointer = vbDefault