Erro em tempo de execução '13'. Tipos incompatíveis

Question

Olá.

Eu também estou com o mesmo problema, já revisei a planilha mas os dados estão corretos. Preciso de ajuda, por favor.

Public Sub Somar_Valores()
Dim soma As Double
For i = 1 To lstAjudante.ListItems.Count
soma = soma + lstAjudante.ListItems.Item(i).SubItems(2)
Next i
txtSoma2 = soma
End Sub

Esta codificação é para fazer a soma dos valores da segunda coluna de uma listview ( lstAjudante ).

Answer 1

Roger,

Só retornará erro no seu método se você não possuir 3 colunas no seu ListView ou se a terceira coluna for um texto e não um número.

no seu exemplo o subItems(2) representa a 3ª coluna da matriz.

Abraço!

---

Natan