Private Sub C_Classe_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_Classe.SelectedIndexChanged
L_Etudiant.Items.Clear()
'Remplissage de la ListBox concenant les étudiants
Dim reqselectetudiant As String reqselectetudiant "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY NomEleve"
Dim dt3 As DataTable
dt3 = F_Menu.ReqSelection(reqselectetudiant, "Eleve")
For i = 0 To dt3.Rows.Count() - 1
C1.ListView.Items.Add(dt3.Rows(i).Item(0))
C2.ListView.Items.Add(dt3.Rows(i).item(1))
Next
End Sub
Je n'ai pas continué jusqu'à C5 puisque cela ne correspondait pas à ce que je souhaite réaliser, en effet, lorsque je teste ceci, cela m'affiche les n° et noms dans la même colonne, or je souhaiterais afficher toute les informations concernant une même personne au sein de la même ligne.
cs_mickael56100
Messages postés94Date d'inscriptionvendredi 12 septembre 2008StatutMembreDernière intervention19 mai 2012 5 févr. 2009 à 14:33
c'est bon je viens de trouver sur le net la solution, mais désormais la listview n'est plus actualiser lors du changement du code classe et code promo par l'utilisateur dans la liste déroulante. Voici mon code :
Public Class F_ConsultEtudiant
Private Sub B_Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Fermer.Click
Me.Close()
End Sub
Private Sub F_ConsultEtudiant_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
'Remplissage de la liste déroulante concernant les Classes
Dim reqselectclasse As String
reqselectclasse = "SELECT CodeClasse FROM Classe ORDER BY CodeClasse DESC"
Dim dt As DataTable
dt = F_Menu.ReqSelection(reqselectclasse, "Classe")
For i = 0 To dt.Rows.Count() - 1
C_Classe.Items.Add(dt.Rows(i).Item(0).ToString)
Next
C_Classe.SelectedIndex = 0
'Remplissage de la liste déroulante concernant les promos
Dim reqselectpromo As String
reqselectpromo = "SELECT CodePromo FROM Annee ORDER BY CodePromo DESC"
Dim dt2 As DataTable
dt2 = F_Menu.ReqSelection(reqselectpromo, "Annee")
For i = 0 To dt2.Rows.Count() - 1
C_Promo.Items.Add(dt2.Rows(i).Item(0).ToString)
Next
C_Promo.SelectedIndex = 0
'Remplissage de la ListBox concenant les étudiants
Dim reqselectetudiant As String reqselectetudiant "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve,TelmobileEleve,CourielEleve,AdresseEleve,CodePostalEleve,VilleEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY CodeEleve"
Dim dt3 As DataTable
dt3 = F_Menu.ReqSelection(reqselectetudiant, "Eleve")
For i = 0 To dt3.Rows.Count() - 1
Dim lvi As New ListViewItem
'Remplissage de la première colonne
lvi.Text = dt3.Rows(i).Item(0)
'Remlissage de la deucième colonne
lvi.SubItems.Add(dt3.Rows(i).Item(1))
'Remplissage de la troixième colonne
lvi.SubItems.Add(dt3.Rows(i).Item(2))
'Remplissage de la quatrième colonne
lvi.SubItems.Add(dt3.Rows(i).Item(3))
'Remplissage de la cinquième colonne
lvi.SubItems.Add(dt3.Rows(i).Item(4))
'Remplissage de la sixième colonne
lvi.SubItems.Add(dt3.Rows(i).Item(5) & " " & dt3.Rows(i).Item(6) & " " & dt3.Rows(i).Item(7))
'Ajout d'une nouvelle ligne
L_Etudiant.Items.Add(lvi)
Next
Catch ex As Exception
End Try
End Sub
Private Sub C_Promo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C_Promo.SelectedIndexChanged
Try
L_Etudiant.Items.Clear()
'Remplissage de la ListBox concenant les étudiants
Dim reqselectetudiant1 As String reqselectetudiant1 "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER BY CodeEleve"
Dim dt4 As DataTable
dt4 = F_Menu.ReqSelection(reqselectetudiant1, "Eleve")
For i = 0 To dt4.Rows.Count() - 1
Dim lvi As New ListViewItem
'Remplissage de la première colonne
lvi.Text = dt4.Rows(i).Item(0)
'Remlissage de la deucième colonne
lvi.SubItems.Add(dt4.Rows(i).Item(1))
'Remplissage de la troixième colonne
lvi.SubItems.Add(dt4.Rows(i).Item(2))
'Remplissage de la quatrième colonne
lvi.SubItems.Add(dt4.Rows(i).Item(3))
'Remplissage de la cinquième colonne
lvi.SubItems.Add(dt4.Rows(i).Item(4))
'Remplissage de la sixième colonne
lvi.SubItems.Add(dt4.Rows(i).Item(5) & " " & dt4.Rows(i).Item(6) & " " & dt4.Rows(i).Item(7))
'Ajout d'une nouvelle ligne
L_Etudiant.Items.Add(lvi)
Next
Catch ex As Exception
End Try
End Sub
Private Sub C_Classe_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C_Classe.SelectedIndexChanged
Try
L_Etudiant.Items.Clear()
'Remplissage de la ListBox concenant les étudiants
Dim reqselectetudiant2 As String reqselectetudiant2 "SELECT Eleve.CodeEleve,NomEleve,PrenomEleve FROM Eleve,Appartenir WHERE Eleve.CodeEleve Appartenir.CodeEleve AND CodePromo = '" & C_Promo.Text & "' AND CodeClasse = '" & C_Classe.Text & "' ORDER CodeEleve"
Dim dt5 As DataTable
dt5 = F_Menu.ReqSelection(reqselectetudiant2, "Eleve")
For i = 0 To dt5.Rows.Count() - 1
Dim lvi As New ListViewItem
'Remplissage de la première colonne
lvi.Text = dt5.Rows(i).Item(0)
'Remlissage de la deucième colonne
lvi.SubItems.Add(dt5.Rows(i).Item(1))
'Remplissage de la troixième colonne
lvi.SubItems.Add(dt5.Rows(i).Item(2))
'Remplissage de la quatrième colonne
lvi.SubItems.Add(dt5.Rows(i).Item(3))
'Remplissage de la cinquième colonne
lvi.SubItems.Add(dt5.Rows(i).Item(4))
'Remplissage de la sixième colonne
lvi.SubItems.Add(dt5.Rows(i).Item(5) & " " & dt5.Rows(i).Item(6) & " " & dt5.Rows(i).Item(7))
'Ajout d'une nouvelle ligne
L_Etudiant.Items.Add(lvi)
Next
Catch ex As Exception
End Try
End Sub
Private Sub B_ModifEtudiant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_ModifEtudiant.Click
Me.Close()
F_ModifEtudiant.Show()
End Sub