condition avec checkbox

Version imprimable

Bonjour à tous,

J'ai une listBox avec des agents dedans, je veux faire un filtre c'est à dire si je coche la checkbox j'ai le nom de tous les agents, si elle n'est pas coché seul les agents qui sont encore en poste à la date choisi par l'utilisateur sont affichés, tourné dans l'autre sens les agents dont leur date de départ est comprise entre une date au hasard du genre 01/01/1900 et la date sélectionné par l'utilisateur ne s'affichent pas.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Private H As New Hashtable
 Private Index_Cherche As Integer

        Dim NbEnreg
        H.Clear()
        If CheckBox1.CheckState = CheckState.Checked Then
            Me.objDATA = New CLdata()
            Me.rqSql = "SELECT Index_Agent, Nom, Prenom " & _
                       "FROM Tbl_Agents ORDER BY Nom, Prenom ASC "
            Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT") 
        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then           
 Me.objDATA = New CLdata()
            Me.rqSql = "SELECT Index_Agent, Nom, Prenom " & _
                       "FROM Tbl_Agents WHERE ('1900/01/01' >Tbl_Agents.Date_Sortie_DGAC > '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd") & "')  ORDER BY Nom, Prenom ASC "
            Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT")
        End If
        NbEnreg = DS.Tables(0).Rows.Count - 1
        For I = 0 To NbEnreg
            H.Add(I, DS.Tables(0).Rows(I).Item(0))
            Me.search.Items.Add(DS.Tables(0).Rows(I).Item(1) & " " & DS.Tables(0).Rows(I).Item(2))
        Next
    End Sub

Que mettre dans la clause where? Le code est-il bon?
Merci.

La partie Where de ta requête est mauvaise, tu ne peux faire un WHERE value1 < Value2 < Value3 :

Code:

'1900/01/01' >Tbl_Agents.Date_Sortie_DGAC > '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd"

tu devrais la remplacer par value1 < Value2 AND Value2 < Value3 :

Code:

'1900/01/01' > Tbl_Agents.Date_Sortie_DGAC AND Tbl_Agents.Date_Sortie_DGAC > '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd"

A vérifier aussi ton format... car moi j'aurais mit toute la requête dans :
Code:

1 2 3 string.format("SELECT Index_Agent, Nom, Prenom " & _ "FROM Tbl_Agents WHERE ('1900/01/01' >Tbl_Agents.Date_Sortie_DGAC AND Tbl_Agents.Date_Sortie_DGAC > '{0:yyyy-MM-dd}' ORDER BY Nom, Prenom ASC " , _ Me.Calendrier.Value)
Mis à part ca, ton code à l'air bon mais multiplie le requête à chaque fois que l'on coche ou décoche ton checkbox...
Une autre manière de procéder est de filtrer avec le filtre des vue, ce qui rend la chose beaucoup plus simple vu que l'affichage ce met à jour automatiquement...

Code:

dts.Tables(0).DefaultView.RowFilter = string.format("'1900/01/01' >Tbl_Agents.Date_Sortie_DGAC AND Tbl_Agents.Date_Sortie_DGAC > '{0:yyyy-MM-dd}'", taDate)

19/10/2009, 09h49
nokia1600

Pourrais-tu m'expliquer les filtres de vues? Le problème que j'ai c'est que ma requête fonctionne que quand le checkbox est décoché, si je clic dessus ça ne change rien du tout
19/10/2009, 19h33
Sankasssss

Il te suffit de mettre ca :

Code:

dts.Tables(0).DefaultView.RowFilter = string.format("'1900/01/01' >Tbl_Agents.Date_Sortie_DGAC AND Tbl_Agents.Date_Sortie_DGAC > '{0:yyyy-MM-dd}'", taDate)

dans l'évènement CheckedChanged de ton checkBox.
Tout le reste va dans l'évènement load de ta form.

le filtrage est extrêmement simple comme je te le montre dans le post plus haut et ci-dessus.
sur msdn : http://msdn.microsoft.com/en-us/libr...8VS.80%29.aspx
Il faut juste faire attention après de travaillé sur les éléments de la vue si tu utilises les index, car la position d'un élément dans une vue filtrée n'est pas sa position dans le datatable...
donc :

Code:

dt.DefaultView.Item(indexLigne).Item(indexColonne)

et non

Code:

dt.Rows(indexLigne).Item(indexColonne)
19/10/2009, 21h04
nokia1600

Ok j'essai ça demain et je te redis en tout cas merci de m'aider
20/10/2009, 23h17
Sankasssss

Pas de problème, le forum est là pour ca ;)

Bon j'ai enfin réussi voila le code = )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim NbEnreg
        Me.objDATA = New CLdata()
        If sender.checked Then
            Me.rqSql = "SELECT Tbl_Agents.Index_Agent, Tbl_Agents.Nom, Tbl_Agents.Prenom FROM Tbl_Agents"
        Else
            Me.rqSql = "SELECT Tbl_Agents.Index_Agent, Tbl_Agents.Nom, Tbl_Agents.Prenom " & _
            "FROM Tbl_Agents " & _
            "WHERE (('1900/01/01' < Tbl_Agents.Date_Sortie_DGAC) AND ((Tbl_Agents.Date_Sortie_DGAC >  '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd") & "')) or (Tbl_Agents.Date_Sortie_DGAC is null))"
        End If
        Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT")
        NbEnreg = DS.Tables(0).Rows.Count - 1
        H.Clear()
        Me.search.Items.Clear()
        For I = 0 To NbEnreg
            H.Add(I, DS.Tables(0).Rows(I).Item(0))
            Me.search.Items.Add(DS.Tables(0).Rows(I).Item(1) & " " & DS.Tables(0).Rows(I).Item(2))
        Next
    End Sub