Как печатать всю стоимость списка объектов?

Я печатаю контент списка объектов, которые я возвращаю BD, но когда я читаю одинокий результат списка, меня печатает единственный объект и не все те, кто он хранит, не, который, что я врежу, что я стараюсь делать, он состоит в том, чтобы посылать электронную почту с реестрами консультации, все делает это довольно одиноким - этот вопрос, как печатать все объекты списка в теле почты

Dim tabla As New funciones()
                Dim valor = tabla.Consultar()
                    For Each item As lstRecogerEquipos In valor
                        If Not valor Is Nothing Then
                            x = item.factura
                            y = item.fecha

                        End If

                    Next
                    cuerpoCorreo = "<html><body><div style='text-align:center'>" & _
    "<h3>Nueva Compra </h3><hr/><br/>" & _
    "<italic>Hola</italic><br/>" & _
    "<br/><table style='border-color: #666;margin: 0 auto;' cellpadding='10' >" & _
    "<tr style='background: #eee;'><td><strong>Factura:</strong> </td><td>" & x & "</td></tr>" & _
    "<tr><td><strong>Fecha:</strong> </td><td>" & y & "</td></tr>" & _
    "</table>" & _
    "<div></body></html>"
0
задан 21.06.2016, 22:37
2 ответа

Проблема состоит в том, что ты посылаешь весь html в конце концов, а следовательно, если он выполняет foreach, ты вероятно только посылаешь Гєltimo информация, складируемая в x и y, он пытается:

cuerpoCorreo = "<html><body><div style='text-align:center'>" & _
               "<h3>Nueva Compra</h3> <hr/>" & _
               "<br/><italic>Hola</italic><br/><br/>" & _
               "<table style='border-color: #666;margin: 0 auto;' cellpadding='10' >" & _
               "<tr><thead> <td>Factura</td> <td>Fecha</td> </thead></tr>"

Dim tabla As New funciones()
Dim valor = tabla.Consultar()

For Each item As lstRecogerEquipos In valor ' Recorremos todos los elementos
    If Not valor Is Nothing Then
        x = item.factura
        y = item.fecha
        ' Los agregamos al valor actual de la variable.
        cuerpoCorreo += "<tr> <td>" & x & "</td> <td>" & y & "</td> </tr>" 
    End If
Next

cuerpoCorreo += "</table></div></body></html>"

И подобно "бону" , ты можешь уберегаться одна, что другая линия cГіdigo делая следующее:

Замечает: только применять это, если стоимость x или y не использована после цикла.

For Each item As lstRecogerEquipos In valor ' Recorremos todos los elementos
    If Not valor Is Nothing Then
        ' Envias el valor de item.factura y item.fecha directamente a cuerpoCorreo
        cuerpoCorreo += "<tr> <td>" & item.factura & "</td> <td>" & item.fecha & "</td> </tr>" 
    End If
Next

Из этой формы ты не должен определять переменные x и y, но как я сказал наверху, используешь ли ты эти переменные после цикла, не уместно это реализовывать Гєltima форму.

3
ответ дан 24.11.2019, 14:06
  • 1
    Спасибо я hab и # 237; в факт шары, он не знал, как прилагать =) –  Ivxn 21.06.2016, 22:57
  • 2
    Только из-за любопытства, в котором ты используешь переменные x и y после цикла? –  NaCl 21.06.2016, 22:57
  • 3
    @NaCI я не использую их, только он делал доказательства распределяя ему стоимость item.factura в эти переменные и вне цикла for он возвращал их, чтобы посылать их вместе с почтой, но не функционировал так –  Ivxn 21.06.2016, 23:49

То, за чем оно последует, что x и и получает новая стоимость в каждом цикле, и только оставляет себе стоимость Гєltimo цикл.

Одна soluciГіn serГ, - когда цепь использовала что concatene линии и колонны внутри нее iteraciГіn, и когда эта закончится, включать цепь, у которой есть структура пластины, где он соответствует. Например:

If Not valor Is Nothing Then
    x = item.factura
    y = item.fecha
    cadenaTabla = cadenaTabla + "<tr style='background: #eee;'><td><strong>Factura:</strong> </td><td>" & x & "</td></tr>" & _"<tr><td><strong>Fecha:</strong> </td><td>" & y & "</td></tr>"
End If

, И после которого я закончил ее iteraciГіn, в твоей переменной cuerpoCorreo:

<table style='border-color: #666;margin: 0 auto;' cellpadding='10' >" & _cadenaTabla & _"</table>"
2
ответ дан 24.11.2019, 14:06
  • 1
    ok Спасибо функционируй совершенно =) –  Ivxn 21.06.2016, 22:59