Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi in crystal report 8.5

Sono un Web Aechitect e da poco sto programmando in VB6, mi sono
avvicinato a Crystal Report 8.5 per poter stampare i report
estrapolati da varie SQL.
Finchè il database "è totalmente inserito nel report" ossia faccio
fare tutto a crystal report funziona perfettamente, quando invece
cerco di interevenire io in programmazione, mi scrive una sola riga e
finisce la.
Credendo che era un errore nella realizzazione della SQL gli faccio
stampare il numero di record trovati e effettivamente ne trova circa
5000 ma ne stampa solo l'ultimo, ho tentato di fargli stampare
caratteri chr(13) e chr(10) ma la cosa non cambia, sono disperato non
so più cosa fare potreste darmi una mano? Ve ne sarei molto grato.
Di seguito ti stampo il codice della form e del report nella finestra
di progettazione
 
******************* Form Report******************************
 
Dim Report As New CrystalReport1
 
Private Sub Form_Load()
 
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
 
End Sub
 
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
 
End Sub
********************************************************************************
**************** Report nella finestra di progettazione
********************
 
Public db As Database
Public rs As Recordset
 
Private Sub Report_Initialize()
 
   Set db = Workspaces(0).OpenDatabase("E:\gestione
offerte\Archivi\valsele\offerte.mdb")
   Set rs = db.OpenRecordset("Select MDDCM,MDVMO,MDREP,MDTMV,YDTMV
from MOVIMENTI where  YDTMV=2000 and MDTMV=10")
 
   rs.MoveFirst
   Do While Not rs.EOF
     Text8.SetText rs.RecordCount
   If rs.Fields("MDDCM") <> "" Then
     Text4.SetText rs.Fields("MDDCM")
   End If
   If rs.Fields("MDVMO") <> "" Then
     Text5.SetText rs.Fields("MDVMO")
   End If
   If rs.Fields("MDREP") <> "" Then
     Text6.SetText rs.Fields("MDREP")
    End If
 
    ' (carriage return, ASCII 13) (line feed, ASCII 10)
    ' dovrebbe fare un LF e CR
    ' pippo = Chr(13) & Chr(10)
 
       rs.MoveNext
   Loop
   rs.Close
   db.Close
 
End Sub
****************************************************************************************
Vi ringrazio anticipatamente.
 
================================
          Serrao Luigi
      Web & Net Architect
Hardware and Software Technical
 
serrao...@netlab.it
 
ser...@netlab.it
================================

    db.Close
questo ciclo č totalmente inutile ai fini del report.
Quando tu "disegni" il report nell'editor di CR, inserisci i campi che vuoi
che siano elencati nella sezione "dettagli" (o "details") ed il gioco č
fatto..
sarą CR ad occuparsi di visualizzarli tutti...
quello che tu fai non č altro che attribuire a text4,text5 e text6 il valore
del record corrente.. chiaro che se fai un ciclo quello visualizzato alla
fine sarą l'ultimo record recuperato...
ti consiglio di leggere un po' la guida di CR.. ;-)
Saluti
--
Stefano Zamboni (
sz...@libero.it
)
--------------------------------------------------------------
"If Bill Gates had a dime for every time a Windows box crashed...
...Oh, wait a minute, he already does."
