Problema con listado de ArrayList en Consola
esto está en el modulo
Código:
esto esta en empresa
Sub ListadoCamiones(ByVal inempre As empresa)
Console.WriteLine(inempre.ListarCamiones)
Console.ReadLine()
End Sub
Código:
si existen los camiones o no me ntra en el if corecto pero no me imprime los camiones listados.
Public Function ListarCamiones() As String
Dim listado As String = "Listado de camiones"
If Me.ColCamiones Is Nothing Or Me.ColCamiones.Count = 0 Then
listado &= ControlChars.NewLine & "No se puede listar los camiones"
Else
listado = "Listado de Camiones"
For i As Integer = 0 To i < Me.ColCamiones.Count - 1
listado &= ControlChars.NewLine & Me.ColCamiones.Item(i).ToString
i += 1
Next
End If
Return listado
End Function
Gracias
Mode Lineal
