CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Listbox En 2 Columnas

(1/2) > >>

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....

Mollense:

--- 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....
--- Fin de la cita ---
¿Que es lo que necesitás hacer?
¿No sirve concatenar los campos?, si no, ya veremos...

Abhero:
: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:

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

Mollense:

--- 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
--- Fin de la cita ---
Concatenar, unir...

Lo podés hacer desde el mismo select:


--- Código: Text ---&#34;Select campo1+', '+campo2 From TuTabla&#34; 
Un saludo

Navegación

[0] Índice de Mensajes

[#] Página Siguiente