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:
Ver originalPublic 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