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:
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
la propriété que j'ai défini :
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
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
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 Property
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
et 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
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
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?