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 : 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 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.
Partager