come da titolo
è una stupidaggine...boh forse sono stanco 
ma oggi non funziona proprio
in pratica valorizzo una combo con i valori("FATTURA","D.D.T" ,"PREVENTIVO")
e voglio settare il value a PREVENTIVO, cioè 1
purtroppo non mi setta mai il valore
codice:
Public Enum TipoDoc
Preventivo = 1
Fattura = 2
DDT = 3
End Enum
Private Sub CaricaTipoDOC()
CBB.Items.Clear()
CBB.DataSource = GetListaTipoDOC()
CBB.DisplayMember = "DESC"
CBB.ValueMember = "ID"
Me.CBB.SelectedValue = TipoDoc.Preventivo
End Sub
Function GetListaTipoDOC() As List(Of MyListBoxItem)
Dim mailItems = New List(Of MyListBoxItem)
mailItems.Add(New MyListBoxItem(TipoDoc.Preventivo,"Preventivo"))
mailItems.Add(New MyListBoxItem(TipoDoc.Fattura, "Fattura"))
mailItems.Add(New MyListBoxItem(TipoDoc.DDT, "DdT"))
Return mailItems
End Function
e la classe myListBoxItem
codice:
Public Class MyListBoxItem
Dim mVal As Integer
Dim mDesc As String
Public Sub New(val As Integer, desc As String)
mVal = val
mDesc = desc
End Sub
Public Sub New()
End Sub
Public Property ID() As String
Get
Return mVal
End Get
Set(ByVal Value As String)
mVal = Value
End Set
End Property
Public Property DESC() As String
Get
Return mDesc
End Get
Set(ByVal Value As String)
mDesc = Value
End Set
End Property
End Class
cosa sbaglio?