Problema mostrar multiples variables en un solo Listbox

[luis456]

Bueno aca de nuevo con un problema similar al anterior post  

Queria mostrar en un solo listbox 60 listbox  y se resolvio ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados cuando se supone que deberia

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As List(Of Integer) = rsalmlals2

       For Each Lnumber As Integer In Lnumbers

           ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))

       Next Lnumber


Saludos
Luis

[luis456]

no me sale ya estoy por creer que no se puede ;(


otra de las muchas formas que he tratado y nada no se unir las variables con la primera si pero ni punto ni comas ni ostias,,,,,,,,,

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As IEnumerable(Of Integer) = rsalmRe1 <solo me acepta una variable

        For Each Lnumber As Integer In Lnumbers

            ListBox1.Items.Add(String.Join("-"c, Lnumbers.Cast(Of Integer)))

        Next Lnumber


aaa en linq: no encuentro nada 

Luis

[Eleкtro]

repiten los resultados

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

Claro que se repiten, intenta entender el código que estás manipulando.

En el bloque del FOR, por cada valor que se encuentre en Lnumbers haces esto ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer))), estás agregando la misma colección "X" cantidad de veces donde "X" equivale a la cantidad de valores de Lnumbers.

No entiendo lo que quieres hacer.

Saludos

[luis456]

Bueno quiero hacer algo como esto: Pero con las variables que muestro en los testboxes

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}   <----cambiar x variables que se muestran  en cada testbox

For Each lb As ListBox In lbs
    ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String)))
Next lb

[Eleкtro]

quiero hacer algo como esto: Pero con las variables que muestro en los testboxes

Código (vbnet) [Seleccionar] Expandir

Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}   <----cambiar x variables que se muestran  en cada testbox

Intenta reformular tu duda, por que de verdad que no se entiende nada.

Esto te podría ayudar:

• 10 pasos para plantear una duda informática
• FAQ : Como hacer preguntas "inteligentes"

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As List(Of Integer) = rsalmlals2
   
ListBox1.Items.Add(String.Join(" "c, Lnumbers))
   
¿?

saludos

[luis456]

Bueno de nuevo gracias por tu paciencia pero no sale lo  que busco y eso que me lei los enlaces que me enviaste y todavia no aprendo a explicarme, te pongo lo que hago pero por supuesto no me sale

primer error el tipico " Un valor de tipo 'Integer' no se puede convertir en 'System.Windows.Forms.ListBox' "

segundo problema no se unir las variables

Código (vbnet) [Seleccionar] Expandir

im Lnumbers As List(Of Integer) = rsalmlals2, rsalmlals3, rsalmlals4

        For Each lb As ListBox In Lnumbers

            ListBox1.Items.Add(String.Join(" "c, Lnumbers))

        Next lb

Luis

[Eleкtro]

Hay muchos fallos obvios en el último código que has mostrado, pero antes de proseguir a explicarte, especifica claramente que es 'rsalmlals2' (y el resto), muestra el tipo de declaración.

Por ejemplo, ¿lo tienes declarado cómo un IEnumerable(Of IEnumerable(Of Integer))?:



Saludos

[luis456]

te enseño de donde lo saco , "almlals2"  lo que nesecito mostrar y son 30 variables de ese tipo y los quiero mostrar en un solo listbox

Código (vbnet) [Seleccionar] Expandir

Dim almA1 As IEnumerable(Of Integer) = almRe1
        Dim almlals2 As List(Of Integer) = almRe1.ToList
        almlals2.Sort()
        Me.ListBox70.Items.AddRange((From value As Integer In almlals2 Where value <> 0).Cast(Of Object).ToArray) 


luis

[Eleкtro]

de acuerdo, dáme unos minutos para escribir... y ve preparándote para el "regaño", jeje...

[luis456]

de acuerdo, dáme unos minutos para escribir... y ve preparándote para el "regaño", jeje...

lo sabia ,,lo sabia