Discussion :

[bonsam]

slt!
j'ai un serieux proble,e avec les etats parametrés sous vb6 avec CristalReport. En effet je voudrais que l'utilisateur entre des parametres avant que je fasse la recherche(par exeùple k'il selectionne la classe pour avoir la liste des eleves de cette classe) mais voyez vous je n'arrive pas à reparametrer la requete une fois en execution. L'etat vient toujours avec les ele,ents de la requete de depart dans l'etat et pourtant dans un dataGrid,j'obtient ce que je veux. Aidez ,oi car je n'y comprend rien à cela.

[cari]

essaie ce bout de 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
 
Dim ch, str As String
On Error Resume Next
 
cr_fich.ReportFileName = App.Path & "\Etats\E_Balance.rpt"
ch = "SELECT" _
    & " Operation.`RefOpPaie`, Operation.`DateOp`, Operation.`CodedevCont`, Operation.`MontPaie`, Operation.`CodeTypOp`, Operation.`CodeEco`, Operation.`CodeNatJur`, Operation.`IndicTyp`, Operation.`MontDevises`," _
    & " Tiers.`nomTiers`, Tiers.`CodePayNat`," _
    & " Pays.`NumPay`" _
    & " From " _
    & "(`Operation` Operation  LEFT OUTER JOIN `Tiers` Tiers ON          Operation.`id_t` = Tiers.`id_t`     )   LEFT OUTER JOIN `Pays` Pays ON          Operation.`CodePays` = Pays.`CodeIso` where Operation.`RefOpPaie`= '" & Trim(cmbdon.Text) & "'"
 
cr_fich.SQLQuery = ch
cr_fich.WindowState = crptMaximized
cr_fich.Action = 1
cr_fich.Reset