Discussion :

[gian671]

slt tous
j'avais ce code la pour faire la connection entre un button et crystalreportview et je veux que je n'ecrie rien a la case de umputbox me aficher toute la liste des produit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim F As New Form2
        Dim h As New stock
        Dim u As String
 
        u = InputBox("Entrer le nom du fournisseur")
        h.SetDataSource(DataSet1)
        Form2.CrystalReportViewer1.ReportSource = h
        Form2.CrystalReportViewer1.SelectionFormula = "{fournisseur.nom}= '" & u & "'"
        Form2.CrystalReportViewer1.RefreshReport()
        Form2.CrystalReportViewer1.Refresh()
        Form2.Show()

[SaumonAgile]

Tu n'as qu'à rajouter un test pour vérifier que la valeur saisie n'est pas vide après le inputbox.
Si la valeur est vide, il te suffit de supprimer le SelectionFormula