Version imprimable
j'ai une listbox1 qui affiche des données de type (des dates). dans une autre listbox2 je veux afficher les même dates dans litbox1 mais à chaqu'une des dates je vais ajouter 9 mois. pour cela j'ai le code suivant:
Dim i, j As Integer
Dim x, y, As Date
For i = 0 To listbox1.Items.Count - 1
x =CDate( listbox1.Items(i))
y = x.AddMonths(9)
listbox2.Items.Add(y)
Next i
Le problème c'est que quand j'exécute j'ai le message : cast du type 'DataRowview' en type 'Date' non valide.
Pouvez vous m'aider ?
essaie ça
Code:Dim y As Date = Date.Parse(listbox1.Items(i))
d'abord il faut remplacer y par x, càd il faut écrire :
Dim x As Date = Date.Parse(listbox1.Items(i)).
Mais ça marche pas toujours. j'ai déjà posé la même question dans le forum et ya quelqu'un qui a fait un copier coller du code que j'ai proposé et ça marchait pour lui. avec moi ça marche pas toujours.
vraiment je ne sais c'est dû à quoi ? le code est tout à fait correct.
tu dois avoir un problem au niveau de ta listbox dans ce cas...
regarde si tu as pas un truc du genre listbox1.items(i).text ou value...
non y en a pas, j'ai utilisé le code suivant sans résultat :
x =CDate( listbox1.Items(i).value)
et j'ai le message :
une exception non gérée du type 'system.Missing<memberException' s'est produite dans microsoft.visualbasic.dll
imformations supplémentaires : Le membre public 'value' du type 'DataRowView' est introuvable