Qual Modificaçao

[ramon]

Qual modificaçao eu teria que fazer para o debug.print imprimi-se alem do nome do time imprimi-se tambem os valores dos pontos e saldos de gols juntos

alguém pode me ajudar a lterar isso?

Dim i  As Integer

Dim rsDesconectado As ADODB.Recordset
Set rsDesconectado = New ADODB.Recordset

rsDesconectado.Fields.Append "Time", adChar, 40
rsDesconectado.Fields.Append "Pontos", adInteger
rsDesconectado.Fields.Append "SaldoGols", adInteger


rsDesconectado.ActiveConnection = Nothing
rsDesconectado.CursorLocation = adUseClient

rsDesconectado.Open

rsDesconectado.AddNew
rsDesconectado("Time").Value = "Grêmio"
rsDesconectado("Pontos") = 3
rsDesconectado("SaldoGols") = 1

rsDesconectado.AddNew
rsDesconectado("Time").Value = "Santástico Futebol Show"
rsDesconectado("Pontos") = 9
rsDesconectado("SaldoGols") = 13

rsDesconectado.AddNew
rsDesconectado("Time").Value = "Juventude"
rsDesconectado("Pontos") = 4
rsDesconectado("SaldoGols") = -3

rsDesconectado.AddNew
rsDesconectado("Time").Value = "Caxias"
rsDesconectado("Pontos") = 4
rsDesconectado("SaldoGols") = 1

rsDesconectado.Sort = ("Pontos desc, SaldoGols desc")

Dim dados()
quantidade = 0
With rsDesconectado
   .MoveFirst
   Do While Not .EOF
       ReDim v(.Fields.Count - 1)
       qt = 0
       For Each f In .Fields
           v(qt) = f.Value
           qt = qt + 1
       Next f
       ReDim Preserve dados(quantidade)
       dados(quantidade) = v
       quantidade = quantidade + 1
       .MoveNext
   Loop
End With


For Each informação In dados
    For Each dado In informação
        Debug.Print Trim(dado)
        Exit For
    Next dado
    B = B + 1
Next informação

[Graymalkin]

Já experimentou tirar aquele "Exit For" de dentro do loop? Acho que ele não cai bem no caso.

Abraços,

Graymalkin

[ramon]

Já experimentou tirar aquele "Exit For" de dentro do loop? Acho que ele não cai bem no caso.

Abraços,

Graymalkin

Bah mas que idiota que eu sou mesmo

Matou a xarada!