Discussion :

[Shadam]

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
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

le constructeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Sub New(ByVal pId As Integer, ByVal pNom As String, ByVal pPrenom As String)
        Me.Id = pId
        Me.Nom = pNom
        Me.Prenom = pPrenom
    End Sub

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?

[ostenhard]

Bonjour,

Alors ce n'est peut-être pas ça vu que le vb.net et moi, ça fait ... !

Faudrait pas un peu typer tes objets et tes listes ?
Du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim listeResponsable As New List(of GestionProduction2.Utilisateur)

Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim listeResponsable As New ArrayList

....

[Shadam]

Oui effectivement, il faudrait que je type un petit peu plus fortement mes listes, mais bon j'aime bien laisser à VS la surprise de ce que je lui mets dans les composants

Enfin je fais toujours comme ça et d'habitude ça marche très bien, sauf que d'habitude je mets en displaymember des colonnes récupérer en BdD mais là j'aurais besoin d'y mettre une propriétés readonly que j'ai moi même définie (avec 2 colonnes de la BdD).

[ostenhard]

Au pire tu overrides le toString de ta classe avec ce que tu veux et ce sera bon ! Pas l'idéal mais pour le cas présenté, ça fonctionnera !

[Shadam]

Au pire tu overrides le toString de ta classe avec ce que tu veux et ce sera bon ! Pas l'idéal mais pour le cas présenté, ça fonctionnera !

Bon bah j'ai fait comme tu dis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Overrides Function ToString() As String
        Return nomPrenom
    End Function

mais j'aimerais bien avoir le fin mot de cette histoire quand même, je laisse en non résolu encore un peu au cas où quelqu'un connait la solution