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
cosa sbaglio?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


Rispondi quotando
