SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Vortice en Viernes 18 de Enero de 2008, 16:07

Título: Listbox En 2 Columnas
Publicado por: Vortice en Viernes 18 de Enero de 2008, 16:07
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....
Título: Re: Listbox En 2 Columnas
Publicado por: Mollense en Viernes 18 de Enero de 2008, 16:25
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...
Título: Re: Listbox En 2 Columnas
Publicado por: Abhero en Viernes 18 de Enero de 2008, 16:30
: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:
Título: Re: Listbox En 2 Columnas
Publicado por: Vortice en Viernes 18 de Enero de 2008, 16:31
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
Título: Re: Listbox En 2 Columnas
Publicado por: Mollense en Viernes 18 de Enero de 2008, 16:38
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
Título: Re: Listbox En 2 Columnas
Publicado por: Abhero en Viernes 18 de Enero de 2008, 16:52
Y donde estan los dos campos?

Tu query solo trae la razon social.  :blink:
Título: Re: Listbox En 2 Columnas
Publicado por: Abhero en Viernes 18 de Enero de 2008, 16:55
Leete esto:

http://foros.solocodigo.com/index.php?showtopic=29342 (http://foros.solocodigo.com/index.php?showtopic=29342)

 :whistling:
Título: Re: Listbox En 2 Columnas
Publicado por: Vortice en Lunes 21 de Enero de 2008, 20:44
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......