Llenar combo desde Coleccion

Espero te sirva.

'Declaras Esta Estructura

Public Structure ComboBoxItem

Public Text As String

'Esta Propiedad la puedes usar para meter el codigo o puedes incluir las
que quieras

Public Id As Long

Public Overrides Function ToString() As String

Return Text

End Function

End Structure



Private Sub Llena Combo()

Dim Agencia As AgenciaRow
Dim Itemx as ComboBoxItem
Dim Coleccion() As AgenciaRow =
Encomiendas.AgenciaCollection.GetForComboXCiudad(Me.TextBox1.Text.Trim)


For Each Agencia In Coleccion

Itemx=New comboboxitem

Itemx.text=agencia.text

itemx.Id=agencia.Codigo

cmbagencia.items.add(itemx)

Agencia=nothing
Next

End Sub


Valdov
Id Msn Messenger:




"JCruz" escribió en el mensaje
news:

Hola amigos necesito llenar un combobox, con el codigo que tengo me llena
el
combo, pero lo que necesito es ademas de llenar el nombre de la agencia es
llenar su codigo para luego usarlo al guardar.

Dim Agencia As New AgenciaRow
Dim Coleccion() As AgenciaRow > Encomiendas.AgenciaCollection.GetForComboXCiudad(Me.TextBox1.Text.Trim)
For Each Agencia In Coleccion
CmbAgencia.Items.Add(Agencia.NomAgencia)
'***Supongo que aqui va el codigo para poder llenar el
'***Codigo de la agencia (Agencia.Codigo)
Next