Dans une fenêtre de mon application, je remplis "automatiquement" (via un datatable) une combobox avec des dates, issues d'un champ en base de données Sql Server 2008.

En base données, les dates doivent être obligatoirement stockées "au complet", avec le format YYYY-MM-DD HH:MM:SS (Merci Sql Server )

Mais cette combobox sert de "filtre" pour moduler l'affichage des données dans un datagridview.

Du coup, pour faciliter son utilisation, et à cause de la pertinence de la sélection, je "réduis", dans la combobox, la date au format DD/MM/YYYY et je supprime les redondances.

Mais tout cela prend du temps, un peu trop pour le client.

Je sollicite donc vos lumières pour améliorer le code suivant :

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
Dim ListVal As New List(Of String)
Dim val_crt_item As String = String.Empty
Dim index As Integer = 0
 
Dim cb_item As DataRowView
 
While index < CbDate.Items.Count
 
        cb_item = CbDate.Items(index)
 
        val_crt_item = cb_item.Row("Date").ToString().Substring(0, 10)
 
        If ListVal.Contains(val_crt_item) Then
            cb_item.Delete()
        Else
            index += 1
            cb_item.Row("Date") = val_crt_item
            ListVal.Add(val_crt_item)
        End If
 
End While