• Viernes 8 de Noviembre de 2024, 21:00
« anterior próximo »
Páginas: [1]

Autor Tema:  Listbox En 2 Columnas  (Leído 12853 veces)

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Listbox En 2 Columnas
« en: Viernes 18 de Enero de 2008, 16:07 »
0
Camaradas ha pasado un tiempo desde q no los saludaba, espero sigan bien....

Existe algun control que sea algo asi como un ListBox de 2 columnas (Usuario + Fecha), ojala y puedan ayudarme....
de antemano gracias....
Solo el Bueno muere joven...

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Listbox En 2 Columnas
« Respuesta #1 en: Viernes 18 de Enero de 2008, 16:25 »
0
Cita de: "Vortice"
Camaradas ha pasado un tiempo desde q no los saludaba, espero sigan bien....

Existe algun control que sea algo asi como un ListBox de 2 columnas (Usuario + Fecha), ojala y puedan ayudarme....
de antemano gracias....
¿Que es lo que necesitás hacer?
¿No sirve concatenar los campos?, si no, ya veremos...
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Abhero

  • Miembro MUY activo
  • ***
  • Mensajes: 137
    • Ver Perfil
    • http://www.myspace.com/abhero
Re: Listbox En 2 Columnas
« Respuesta #2 en: Viernes 18 de Enero de 2008, 16:30 »
0
:lol:

Puedes concatenar todos los campos que quieras en la misma columna de un list. Solo tienes que separarlos como quieras. Mas o menos asi.



Separado con espacios
List1.items.add(Campo1 & " "  & Campo2)

Separado con Tab
List1.items.add(Campo1 & CHR(9) & Campo2)

Nota: Funciona bien si los usuarios y las fechas siempre tienen una longitud estandar.

Prueba a ver si resuelve tu problema.
Ab.  :hola:


El Optimista lo vio medio lleno.
El Pesimista lo vio medio vacío.
Los malos analistas a penas vieron el vaso.

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Re: Listbox En 2 Columnas
« Respuesta #3 en: Viernes 18 de Enero de 2008, 16:31 »
0
Mollense,
gracias por contestar tam pronto.
mira yo lo hago asi para lenar un listbox desde la BD

Empresa.Visible = True
        Dim strSQL As String
        conectar_bd()
        strSQL = "SELECT razon_social FROM clientes WHERE razon_social LIKE '" & emp_cotiz.Text & "%' AND razon_social <> ' ' AND estado = 'Activo' ORDER BY razon_social"
        Dim command As New SqlCommand(strSQL, Connection)
        Dim reader As SqlDataReader = command.ExecuteReader()
        Empresa.Items.Clear()
        While reader.Read
            Empresa.Items.Add(reader.GetString(0))
        End While
        reader.Close()

donde Empresa es mi ListBox, a q te refieres con concatenar o mejor dicho como concateno 2 campos para mostrarlos uno al lado del otro den el listbox, ya que, ambos corresponden al mismo registro
Solo el Bueno muere joven...

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Listbox En 2 Columnas
« Respuesta #4 en: Viernes 18 de Enero de 2008, 16:38 »
0
Cita de: "Vortice"
Mollense,
gracias por contestar tam pronto.
mira yo lo hago asi para lenar un listbox desde la BD

Empresa.Visible = True
        Dim strSQL As String
        conectar_bd()
        strSQL = "SELECT razon_social FROM clientes WHERE razon_social LIKE '" & emp_cotiz.Text & "%' AND razon_social <> ' ' AND estado = 'Activo' ORDER BY razon_social"
        Dim command As New SqlCommand(strSQL, Connection)
        Dim reader As SqlDataReader = command.ExecuteReader()
        Empresa.Items.Clear()
        While reader.Read
            Empresa.Items.Add(reader.GetString(0))
        End While
        reader.Close()

donde Empresa es mi ListBox, a q te refieres con concatenar o mejor dicho como concateno 2 campos para mostrarlos uno al lado del otro den el listbox, ya que, ambos corresponden al mismo registro
Concatenar, unir...

Lo podés hacer desde el mismo select:

Código: Text
  1. &#34;Select campo1+', '+campo2 From TuTabla&#34;
  2.  

Un saludo
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Abhero

  • Miembro MUY activo
  • ***
  • Mensajes: 137
    • Ver Perfil
    • http://www.myspace.com/abhero
Re: Listbox En 2 Columnas
« Respuesta #5 en: Viernes 18 de Enero de 2008, 16:52 »
0
Y donde estan los dos campos?

Tu query solo trae la razon social.  :blink:


El Optimista lo vio medio lleno.
El Pesimista lo vio medio vacío.
Los malos analistas a penas vieron el vaso.

Abhero

  • Miembro MUY activo
  • ***
  • Mensajes: 137
    • Ver Perfil
    • http://www.myspace.com/abhero
Re: Listbox En 2 Columnas
« Respuesta #6 en: Viernes 18 de Enero de 2008, 16:55 »
0


El Optimista lo vio medio lleno.
El Pesimista lo vio medio vacío.
Los malos analistas a penas vieron el vaso.

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Re: Listbox En 2 Columnas
« Respuesta #7 en: Lunes 21 de Enero de 2008, 20:44 »
0
Muchas gracias a todos lo hice de la siguiente manera por si a alguien le sirve.......

ListaBusqueda.Visible = True
Dim strSQL As String
Try
     strSQL = "SELECT Usuario,Fecha_Solicitud FROM Requerimientos_Interno WHERE Usuario <> ' ' AND Usuario = '" & usu.Text & "' ORDER BY Fecha_Solicitud"
     Dim command As New SqlCommand(strSQL, Connection)
     Dim reader As SqlDataReader = command.ExecuteReader()
     ListaBusqueda.Items.Clear()
     While reader.Read
              cond2 = reader.GetValue(0)
              cond3 = reader.GetValue(1)
               ListaBusqueda.Items.Add(cond2 & "-" & cond3)
      End While
      reader.Close()
Catch ex As Exception
        MsgBox(ex.Message)
End Try


saludos desde Chile......
Solo el Bueno muere joven...
Páginas: [1]
« anterior próximo »