谁能给我个代码 VB6调用水晶报表7的例子 谢谢

Question

谁能给我个代码 VB6调用  水晶报表7   的例子
[email protected]
万分感谢

Answer 1

Private Sub cmdPrint_Click()
 
    
       
    Dim frmRpt As frmRptInventory'提示USER-DEFIND TYPE NOT DEFINE是什么错误    Set frmRpt = New frmRptInventory
    Load frmRpt
    
    frmRpt.Hide
    
    frmRpt.vSys = "FG"
    frmRpt.vDateTo = Me.vDateTo
    frmRpt.chkDiscardZero.Value = 1
    Dim rsRep As ADODB.Recordset
    Set rsRep = frmRpt.PntRMIrpt(Me.ProgressBar1)
    
    Screen.MousePointer = vbHourglass
    DoEvents
    If Not rsRep Is Nothing Then
        If rsRep.recordCount > 0 Then
        
            Dim rs As ADODB.Recordset
            Set rs = New ADODB.Recordset
            Dim strSQL As String
            strSQL = "SELECT DISTINCT PARTNO, DIM1, UDIM1, DIM2, UDIM2 FROM IRITEM " & _
                    "WHERE TXCODE IN ('C', 'G', 'M', 'O') " & _
                    "AND SUPPDATE BETWEEN '" & vNoSaleFr & "' AND '" & vNoSaleTo & "' AND SYS = 'FG'"
            
            rs.Open strSQL, con, adOpenStatic, adLockReadOnly
            
            While Not rs.EOF
                If rsRep.recordCount > 0 Then
                    If Not rsRep.BOF Then rsRep.MoveFirst
                End If
                rsRep.Filter = "PARTNO = '" & rs!PARTNO & "' " & _
                        "AND DIM1 = " & rs!dim1 & " AND UDIM1 = '" & rs!udim1 & "' " & _
                        "AND DIM2 = " & rs!dim2 & " AND UDIM2 = '" & rs!UDIM2 & "' "
                While Not rsRep.EOF
                    rsRep.Delete
                    rsRep.MoveNext
                Wend
                rsRep.Filter = ""
                rs.MoveNext
            Wend
            
            
            rs.Close
            Set rs = Nothing
            
            Dim CRVAppl As CRAXDRT.Application
            Dim CRReport As CRAXDRT.Report
            Dim aForm As frmReportView
            Set CRVAppl = New CRAXDRT.Application
            Set CRReport = CRVAppl.OpenReport(REPPATH & "\rmirpt.rpt", crOpenReportByTempCopy)
            CRReport.FormulaFields(1).Text = "'FG SLOW-MOVING INVENTORY REPORT FROM " & Format(Month(vDateTo), "00") & "/01/" & Year(vDateTo) & " TO " & vDateTo & "'"
            
            Set aForm = New frmReportView
            aForm.LoadReport CRReport, rsRep, "Slow-Moving Inventory Report"
            Screen.MousePointer = vbDefault
            aForm.Show
            
        End If
    End If
    Me.ProgressBar1.Value = 100
    DoEvents
    
    Unload frmRpt
    Set frmRpt = Nothing
    Screen.MousePointer = vbDefault
End Sub