Llenado de combo manualmente

[3ricks0ul]

Saludos comunidad, me veo en la necesidad de llenar muchos combos de manera manual con valor cada item, por lo que quise crear una función para para no escribir tanto código, pero no la eh podido hacer.

Aquí mi función:

Código vb:

Public Shared Function FillComboManual(ByRef cmb As ComponentFactory.Krypton.Toolkit.KryptonComboBox, ByVal valueField As String, ByVal TextField As String)
        Dim dt As DataTable
        dt = New DataTable("Tabla")
        dt.Columns.Add("Codigo")
        dt.Columns.Add("Descripcion")
        Dim dr As DataRow
        dr = dt.NewRow
        dr(0) = valueField
        dr(1) = TextField
        dt.Rows.Add(dr)
        cmb.DataSource = dt
        cmb.ValueMember = "Codigo"
        cmb.DisplayMember = "Descripcion"
    End Function
 

Como la mando llamar:

Funciones.FillComboManual(cmbSexo, "MASCULINO", "M")

Y si quiero agregarle otro item como esta manera:

Funciones.FillComboManual(cmbSexo, "Masculino", "M")
Funciones.FillComboManual(cmbSexo, "Femenino", "F")

Solo me muestra el ultimo genero que puse en este caso solo me muestra Femenino.

Espero puedan ayudarme para mejorar la función, saludos

[Aquaventus]

Hola 3ricks0ul, te muestra solo el último porque en tu metodo fillComboManual, con cada llamada que le haces, creas un nuevo datatable seteando el anterior que tenias colocado, quedandote solo el último llamado.

[jhonwilliams]

Hola.

Que version del FrameWork utilizas para programar?

Saludos

[jhonwilliams]

Si estas usando el framework 3.5, acabo de hacer este ejemplo en C# (basado en este link http://www.vbforums.com/showthread.p...ontrol-a-Timer

Creamos esta Clase

Código C#:

class ComboBoxItem
        {
            public string Text { get; set; }
            public object Value { get; set; }
        }
 

Y hacemos esto para carga el combo

Código C#:

List<ComboBoxItem> lista = new List<ComboBoxItem>();
                lista.Add(new ComboBoxItem { Text = "Masculino", Value = "M" });
                lista.Add(new ComboBoxItem { Text = "Femenino", Value = "F" });
 
                comboBox1.DataSource = lista;
                comboBox1.DisplayMember = "Text";
                comboBox1.ValueMember = "Value";
 

Ahora eso en tu funcion seria mas o menos asi: (OJO ESTOY MESCALDO LENGUAJES), es solo para ubicar mas o menos lo que debes hacer

Código vb:

'ACA LA PROPIEDAD LISTA, 
List<ComboBoxItem> lista = new List<ComboBoxItem>();
 
    Public Shared Function FillComboManual(ByRef cmb As ComponentFactory.Krypton.Toolkit.KryptonComboBox, ByVal valueField As String, ByVal TextField As String)
 
                lista.Add(new ComboBoxItem { Text = TextField , Value = valueField  });  
                cmb .DataSource = lista;
                cmb .DisplayMember = "Text";
                cmb .ValueMember = "Value";          
 
        End Function
 

El tener la propiedad lista fuera de la funcion garantiza que no se limpie cada que se llama a la funcion y permanescan los datos.

Si estas usando el framerwork 2, creo que es mucho mas facil, pero esta es solo una idea porque no tengo como probar la funcion en este momento, pero FUNCIONA!!!

Public Shared Function FillComboManual(ByRef cmb As ComponentFactory.Krypton.Toolkit.KryptonComboBox, ByVal valueField As String, ByVal TextField As String)

cmb .Items.Add(TextField ,valueField )


End Function
[/HIGHLIGHT]

Saludos

[3ricks0ul]

Aun así solo me muestra el ultimo item que agregué :(, no entiendo que tengo que hacer aun y de tanto código que ya eh revisado me perdí

[jhonwilliams]

Pero aun no me has dicho que version de framework estas usando?


Y muestra la funcion como la tenes actualmente.

Saludos