• Lunes 13 de Mayo de 2024, 09:53

Autor Tema:  problemas con combo box  (Leído 1782 veces)

alexis17

  • Miembro MUY activo
  • ***
  • Mensajes: 378
    • Ver Perfil
    • http://www.codigobasico.net
problemas con combo box
« en: Miércoles 6 de Agosto de 2008, 16:47 »
0
buenos dias que tal,
tenia un problema, queria llenar un combobox, pero con datos fijos, pero queria llenarlos por su propiedad item, porque me esta dando problemas, cuando recupero la informacion me dice que el dato no es compatible

tengo un grid el grid tiene 2 columnas de texto y una olumna que tiene un combobox,
entonces si pongo los datos en el combo que esta dentro del grid, me sale bien puedo insertar, pero el problema es cuando, ago una consulta y quiero llenar el grid, me manda error de como que ese campo no es compatible asi que me llena las otras columnas menos la que tiene el combobox cargado por el item

y ese campo no quiero cargarlo de base de datos porque no vale la pena solo son dos estados

asi que lo que intentaba era esto , tratar de llenar el combo box como si fuera datos de la base de datos informacion fija pero sin utilizar el item pero no funciona
   
       Dim ds_nombre As New DataSet

        Dim dr As DataRow = ds_nombre.Tables(0).NewRow()
        dr.Item("nombre") = "0"
        ds_nombre.Tables(0).Rows.Add(dr)


       
        cnombre.DataSource = ds_nombre.Tables(0)
        cnombre.ValueMember = "nombre"
        cnombre.DisplayMember = "nombre"
Cada dia aprendo algo nuevo

SysEdw

  • Miembro activo
  • **
  • Mensajes: 28
  • Nacionalidad: pe
    • Ver Perfil
Re: problemas con combo box
« Respuesta #1 en: Miércoles 6 de Agosto de 2008, 18:17 »
0
Hola amigo  alexis17  haber si te es de util este codigo

Código: Text
  1. Private Sub RecuperarCombo()
  2.         Dim ds As DataSet
  3.         Dim da As New SqlDataAdapter("select idtienda,Descripcion from tienda", My.Settings.ProgConnectionString)
  4.         ds = New DataSet
  5.         da.Fill(ds, "tienda")
  6.         Me.cnombre.DataSource = ds.Tables(0)
  7.         Me.cnombre.DisplayMember = "Descripcion"
  8.         Me.cnombre.ValueMember = "idtienda"
  9. End Sub
  10.  
______________________________________________________________________________________
                        [size=100]   Si se puede imaginar... se puede programar.
Me encanta depender de la tegnología y vengarme de ella para dominarla como los locos.[/size]

alexis17

  • Miembro MUY activo
  • ***
  • Mensajes: 378
    • Ver Perfil
    • http://www.codigobasico.net
Re: problemas con combo box
« Respuesta #2 en: Miércoles 6 de Agosto de 2008, 18:28 »
0
Cita de: "SysEdw"
Hola amigo  alexis17  haber si te es de util este codigo

Código: Text
  1. Private Sub RecuperarCombo()
  2.         Dim ds As DataSet
  3.         Dim da As New SqlDataAdapter("select idtienda,Descripcion from tienda", My.Settings.ProgConnectionString)
  4.         ds = New DataSet
  5.         da.Fill(ds, "tienda")
  6.         Me.cnombre.DataSource = ds.Tables(0)
  7.         Me.cnombre.DisplayMember = "Descripcion"
  8.         Me.cnombre.ValueMember = "idtienda"
  9. End Sub
  10.  

hola que tal, que va ese codigo no me sirve, porque ese es para cargar el combo box desde una base de datos pero yo lo quiero simular que se carge como una  base de datos pero no quiero hacer select solo quiero simular de la forma de como se hace con el item
Cada dia aprendo algo nuevo