Llenar ComboBox para Pocket PC (.NET 2003)

[RsOfT]

Estoy tratando de llenar un comboBox de PocketPC y estoy utilizando el siguiente código:

Código:

Combo.DataSource = dsDataset
Combo.DisplayMember = "Descripcion"
Combo.ValueMember = "BancoID"

Pero no lo llena, que estoy haciendo mal?

Sucede que para resolver, decidí llenarlo con un FOR asi:

Código:

For i As Integer = 0 To dsDataset.Tables(0).Rows.Count - 1
    With dsDataset.Tables(0).Rows(i)
        Combo.Items.Add(.Item("Descripcion").ToString)
        'Combo.Items.Item(i).Value = .... La propiedad Value no existe
    End With
Next 

Este si lo llena, pero no logro ponerle el ID para que me lo devuelva en la propiedad "SelectValue" y no se lo quiero concatenar a la descripción, que puedo hacer?

[.seb]

RsOfT, no puedo probarlo aquí, pero verifica si no anda llamando al método DataBind (o algo así) del combo.

[RsOfT]

Iniciado por .seb

RsOfT, no puedo probarlo aquí, pero verifica si no anda llamando al método DataBind (o algo así) del combo.

El médito DataBind es solo DataGrid de aplicación Web. ¿Alguna otra idea?

[Stream]

Código:

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add(New ListItem("Zaza", 99))


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = CType(Me.ComboBox1.SelectedItem, ListItem).SelectedValue
    End Sub
End Class

Public Class ListItem
    Private _selectedValue As Integer
    Private _Text As String

    Public Sub New(ByVal Text As String, ByVal Value As Integer)
        Me._Text = Text
        Me._selectedValue = Value
    End Sub

    Public Property SelectedValue() As Integer
        Get
            Return _selectedValue
        End Get
        Set(ByVal value As Integer)
            _selectedValue = value
        End Set
    End Property

    Public Property Text() As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return _Text
    End Function

End Class

espero te sirva, saludos

[RsOfT]

Es Interesante saber que puedo guardar un objeto en un combo
Gracias!!!

[Stream]

Si, yo tampoco lo sabia.. hasta que me encontre con el mismo problema.. y asi lo resolvi.... jejejje

[Stream]

Código:

Combo.DataSource = dsDataset
Combo.DisplayMember = "Descripcion"
Combo.ValueMember = "BancoID"

Pero no lo llena, que estoy haciendo mal?
[/code]

El dataSource no va al final ??

Código:

 
With Me.ComboBox1
            .DisplayMember = "Descripcion"
            .ValueMember = "IDPk"
            .DataSource = table
End With

[RsOfT]

Stream, no es el orden sino que le estaba pasando el DataSet en vez de la tabla.
Me fijé ahora por el ejemplo que escribiste:

Código:

 
With Me.ComboBox1
   .DisplayMember = "Descripcion"
   .ValueMember = "IDPk"
   .DataSource = table
End With

Lo coloqué así:

Código:

        Combo.DataSource = dsDataset.Tables(0)
        Combo.DisplayMember = "Descripcion"
        Combo.ValueMember = "BancoID"

y ya está funcionando a la perfección

[Stream]

Orale.. que bueno