[CR][VB.NET]Création d'un état

[rolan]

Bonjour

J'ai un petit programme qui tourne avec visual basic.net version 2003
je cherche comment afficher deux tables("crées avec accès") liées dans un état crystal report
exemple:
un table"client" et un table "commande" je veux afficher tous les commandes passées par un client que je dois passer sont identifant son nom son prénom en entête de la page et les détails de la commande au milieu de la page


SVP:
Aider mois ou guider mois vers des documents qui traitent le même probleme

[L.nico]

tu devrais essayer ça :
http://neo.developpez.com/tutos/CR/

[rolan]

salut
J'ai visiter le site mais je n'aii pas trouvé une solution à mon problème

[rolan]

mon probleme que je ne peut pas passer les arguments des deux tables dans mon etat.

[L.nico]

Tu devrais peut-être lister ton code pour nous montrer comment tu passes tes parametres ....

[rolan]

voila le code que j'étulise

le problème c'est qu'un seul tableau sera affiché mais les deux en même temps non.
l'un des deux tables est apprenant et l'autre resultat_examen_competence
il sont liées entre eux par cde_apprenant

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Sub competences_obtenu_apprenant()
        datamesproduits = New dempfe.Dataset_groupes
        Dim recherche AS String = ("SELECT DISTINCT resultat_examen_competence.cde_apprenant, apprenant.nom, apprenant.prenom, apprenant.date_naissance, apprenant.adresse, resultat_examen_competence.cde_competence, resultat_examen_competence.situation_apprenant, resultat_examen_competence.nbh_abscence, resultat_examen_competence.resultat_final, resultat_examen_competence.resultat_examen_reg, resultat_examen_competence.resultat_examen_rec, resultat_examen_competence.resultat_examen_rep" _
                 & " FROM apprenant,resultat_examen_competence " _
                 & " where apprenant.cde_apprenant = resultat_examen_competence.cde_apprenant" _
                 & " and  resultat_examen_competence.cde_apprenant=" _
                & cin)
        Dim myadapter AS New OleDb.OleDbDataAdapter(recherche, connection)
        myadapter.Fill(datamesproduits.apprenant)
        'myadapter.Fill(datamesproduits.resultat_examen_competence)
        etat_competences_obtenu_apprenant = New dempfe.competence_obtenue_apprenant
        etat_competences_obtenu_apprenant.SetDataSource(datamesproduits)
        CrystalReportViewer1.ReportSource = etat_competences_obtenu_apprenant
    End Sub
 
 
 
 Public Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feuille5 As New recherche_resultats
        '
        'CrystalReportViewer1
        '
        CrystalReportViewer1.ActiveViewIndex = -1
        CrystalReportViewer1.DisplayGroupTree = False
        CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
        CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
        CrystalReportViewer1.Name = "CrystalReportViewer1"
        CrystalReportViewer1.ReportSource = Nothing
        CrystalReportViewer1.ShowCloseButton = False
        CrystalReportViewer1.ShowGroupTreeButton = False
        CrystalReportViewer1.ShowRefreshButton = False
        CrystalReportViewer1.ShowTextSearchButton = False
        CrystalReportViewer1.Size = New System.Drawing.Size(292, 266)
        CrystalReportViewer1.TabIndex = 4
 
        Controls.ADD(CrystalReportViewer1)
        IF appel_etat = "competences_obtenu_apprenant" Then
            Call competences_obtenu_apprenant()
        ElseIf appel_etat = "Fich_suiveuse" Then
            Call Affichage_fiche_suiveuse()
            'TextBox1.Text = cmb_grille_groupeSelec.SelectedItem.TOUPPER
        Else
            'Call (identification_apprenant())()
        End IF
        CrystalReportViewer1.Refresh()
        datamesproduits.Clear()
        datamesproduits.Dispose()
 
    End Sub
 
 
Private Sub btn_impri_resultat_Click(ByVal sender AS System.Object, ByVal e AS System.EventArgs) Handles btn_impri_resultat.Click
        cin = txt_recherche_cin.Text
        'appel_etat = "competences_obtenu_apprenant"
        Dim ma_forme As New Form6
        ma_forme.ShowDialog()
    End Sub

[L.nico]

Et si tu essayais de détruire la référence de Form6 juste après ta première impression ....
Car c'est comme si il ne faisait le load de ta form6 qu'une seule fois .... et que la référence crystal n'est pas recréée ...

[rolan]

mon problème c'est juste dans les deux lignes suivant
avec :
myadapter c'est ma dataadapter
datamesproduits ma dataset typé
apprenant ma table1
resultat_examen_competence ma table2

myadapter.Fill(datamesproduits.apprenant)
'myadapter.Fill(datamesproduits.resultat_examen_competence)

si je passe les deux tables dans le dataadapter une erreur se déclanche et si je passe la table apprenent que les élément de la table apprenant s'affiche et le contraire dans le deusième cas.
Je cherche une solutiuon pour que les deux tables seront affichées.

[L.nico]

Tu devrais peut-être essayer le forum DotNet ... je n'ai aucune notion de dotNet. j'essayais juste de t'aider en etant logique par rapport à ton problème ....
C'est peut-être plus un problème lié au langage DotNet que Crystal Report ...
Enfin je n'ai plus le temps aujourd'hui, j'essaierai de rééxaminer ton code demain.

[rolan]

salut
Oublier que je travaille sur le dotnet et essayer de me trouver une solution avec crystal report avec un language que tu le prefères

le problème c'est comment afficher deux tables liées dans même etat crystal report
ou si tu connais un livre qui traite se problème donner moi(SVP) le nom et je vais l'acheter depuis lengtemps je cherche une solution mais .....
et j'ai posée ce question sur beaucoup de site.
Merci

[speed034]

Salut

peux etre vais-je dire une grosse connerie mais on c jamais :
et si tu crées une vue de tes deux tables et que tu passes la vue, non?

Voila c dit


++speed