ayuda con combobox sin enlace a datos

[claudiovega]

Mejor crea un datatable con 2 columnas y se lo pasa como datasource al Combobox.

Código:

Dim dtItems as Datatable
dt.Columns.Add("id")
dt.Columns.Add("tipo")

Luego agregas filas al datatable

Dim drItem as DataRow
drItem=dt.NewRow()
drItem("id")=1
drItem("tipo")="Hotel"

dtItems.Rows.Add(drItem)

drItem=dt.NewRow()
drItem("id")=2
drItem("tipo")="Hostal"

dtItems.Rows.Add(drItem)

CmbLugar.ValueMember="id"
CmbLugar.DisplayMember="tipo"

CmbLugar.Clear()
cmbLugar.DataSource=dtItems