mon etat ne suivre pas le changement dans l'application
si je veux imprimer une etat reste les donnees precedent
exemple si je veux imprimer un etat de client x ca marche
mais apres si je veux imprimer les donnees d'un client z reste les donnees de client x sur l'etat de crystal report
j'ai un etat avec crystal report 10 lier avec vb6.0
le probleme lorsque je veux affichier un etat d'un client tout sa marche mais lorsque je veux affichier un autre etat reste le 1 er client affichier dans l'etat càd le crystal ne suivre pas le changement dans vb
et voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Dim Report As New CrystalReport13 Option Explicit Dim FirstShowComplete As Boolean Private Sub Form_Load() Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault CRViewer1.Zoom (110) RefreshViewer Me.Caption = " le client :" & Form11.Combo1 FirstShowComplete = False Report.DiscardSavedData End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub Private Sub RefreshViewer() Dim s As String Screen.MousePointer = vbHourglass s = s & " {T_Benificiare.nom } = '" & Form11.Combo1 & "'" Report.RecordSelectionFormula = s Screen.MousePointer = vbDefault End Sub Private Sub Form_Unload(Cancel As Integer) Set Report = Nothing End Sub
Partager