Bonjour,
c'est plus une question qu'un problème
Bon alors j'ai un combobox et je lui attribu en displaymember une propriété que j'ai défini
la CB:
la propriété que j'ai défini :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub CbEquipe_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CbEquipe.SelectedValueChanged, CbProcess.SelectedValueChanged If Not CbProcess.SelectedValue = Nothing And Not CbEquipe.SelectedValue = Nothing Then Dim listeResponsable = CtrlProcess.getListeResponsable(CbProcess.SelectedValue, CbEquipe.SelectedValue, True) CbResponsable.DisplayMember = "nomPrenom" CbResponsable.ValueMember = "Id" CbResponsable.DataSource = listeResponsable End If End Sub
avec les deux propriétés qu'elle se sert :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Public ReadOnly Property nomPrenom() As String Get Return (_Nom.ToUpper + " " + _Prenom.Substring(0, 1).ToUpper + _Prenom.Substring(1).ToLower).Trim End Get End Property
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public Property Nom() As String Get Return _Nom End Get Set(ByVal value As String) _Nom = value.ToUpper.Trim End Set End Propertyet la requête dont je me sers :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Property Prenom() As String Get Return _Prenom End Get Set(ByVal value As String) Try Dim init = value.Substring(0, 1).ToUpper Dim fin = value.Substring(1).ToLower value = init & fin Catch ex As Exception End Try _Prenom = value.Trim End Set End Property
mais il ne me met jamais "nomPrenom" dans la cb, il met toujours le nom de l'objet (GestionProduction2.Utilisateur), est ce qu'on ne peut mettre que des setters en displaymember ? les readonly ne fonctionnent pas?
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
24
25
26
27
28
29 Private Const SELECTUSERBYRESPONSABILITE As String = "select u.UTIL_ID, u.UTIL_NOM, u.UTIL_PRENOM from TBL_UTILISATEUR u, TBL_RESPONSABLE r where u.UTIL_ID = r.RESP_UTIL_ID " & _ "and r.RESP_EQUIP_ID = @Equipe and RESP_PROC_ID = @Process and u.UTIL_ACTIF = @Statut" Shared Function getListeResponsable(ByVal proc As Integer, ByVal equip As Integer, ByVal statut As Boolean) As ArrayList Dim listeResponsable As New ArrayList cnx = AccesBase.getConnection cmd = New SqlCommand(SELECTUSERBYRESPONSABILITE, cnx) With cmd.Parameters .Add(New SqlParameter("@Equipe", SqlDbType.Int)) .Add(New SqlParameter("@Process", SqlDbType.Int)) .Add(New SqlParameter("@Statut", SqlDbType.Int)) End With Dim statu As Integer If statut Then statu = 1 Else statu = 0 With cmd .Parameters("@Equipe").Value = equip .Parameters("@Process").Value = proc .Parameters("@Statut").Value = statu End With cnx.Open() reader = cmd.ExecuteReader While reader.Read Dim resp = New Utilisateur(reader.Item("UTIL_ID"), reader.Item("UTIL_NOM"), reader.Item("UTIL_PRENOM")) listeResponsable.Add(resp) End While reader.Close() cnx.Close() Return listeResponsable End Function
Partager