Problème d'affichage > listbox > vb.net et access 2010
Bonjour à tous,
J'ai une application a développer en vb.net 2010 (Visual Studio) avec une base MS Access 2010.
La première partie de mon programme était de permettre aux rééducateurs de pouvoir enregistrer les actes de la semaine dans une table appeler "acte".
La deuxième partie est de s'occuper de la modification (pour le chef de service).
Voici le problème :
Quand le rééducateur rentre dans son espace pour enregistrer ses actes de la semaine, il a dans cette interface un bouton permettant d'aller dans un autre formulaire dans lequel il y a un listbox auquel on doit sélectionner l'enregistrement a modifier mais rien ne s'affiche.
Voici le 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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| '_________________________REMPLIR LA LISTE D'ENREGISTREMENT A MODIFIER________________________________________________________________________________________
'Récupérer le numéro du rééducateur afin d'afficher ses enregistrements
fourthSQL = "SELECT DISTINCT * FROM reeducateur"
dta.SelectCommand.CommandText = fourthSQL
dta.Fill(dts, "reeducateur")
For i = 0 To dts.Tables("reeducateur").Rows.Count - 1
Dim nomReeducateur As String = frmBReeducateur.lblAfficherReeducConnecter.Text
If nomReeducateur = dts.Tables("reeducateur").Rows(i).Item("nomReeduc") Then
Dim noReeducateur As Integer = dts.Tables("reeducateur").Rows(i).Item("noReeduc")
'Liste des enregistrements de la table Actes
firstSQL = "SELECT DISTINCT * FROM acte WHERE noReeduc =" & noReeducateur & " ORDER BY nomUsager ASC"
dta.SelectCommand.CommandText = firstSQL
dta.Fill(dts, "acte")
For j = 0 To dts.Tables("acte").Rows.Count - 1
'Récupérer tous les champs de la table acte dans des variables
Dim varNoUsager = dts.Tables("acte").Rows(i).Item("noUsager")
Dim varNomUsager = dts.Tables("acte").Rows(i).Item("nomUsager")
Dim varPrenomUsager = dts.Tables("acte").Rows(i).Item("prenomUsager")
Dim varNoReeduc = dts.Tables("acte").Rows(i).Item("noReeduc")
Dim varNoSem = dts.Tables("acte").Rows(i).Item("noSem")
Dim varMois = dts.Tables("acte").Rows(i).Item("mois")
Dim varTypeSemaine = dts.Tables("acte").Rows(i).Item("typeSemaine")
Dim varDeplacements = dts.Tables("acte").Rows(i).Item("deplacements")
Dim varVisitesMedicales = dts.Tables("acte").Rows(i).Item("visitesMedicales")
Dim varJourneesExceptionnelles = dts.Tables("acte").Rows(i).Item("journeesExceptionnelles")
Dim varRencontreFamilles = dts.Tables("acte").Rows(i).Item("rencontreFamilles")
Dim varReunions = dts.Tables("acte").Rows(i).Item("reunions")
Dim varInterventiontsTelephoniques = dts.Tables("acte").Rows(i).Item("nbActe")
Dim varNbActes = dts.Tables("acte").Rows(i).Item("nbActe")
frmSelectActe.lstSelectActes.Items.Add(varNomUsager & " " & _
varPrenomUsager & " " & _
varNoSem & " " & _
varMois & " " & _
varNbActes)
Next
End If
Next |
Pouvez-vous m'aider s'il vous plais ???