Este fórum está sendo desativado

[JeanHard]

Boas amigos.

No código abaixo, como faço para o mesmo me dar o maior valor da primeira coluna do listview.

Sub Maior()
Dim ip As Integer
Dim MaxValue As Integer

'(1) refere-se a segunda coluna. Já que a contagem para listview começa com (0)


MaxValue = ListView1.ListItems(1).SubItems(1)

With ListView1


For ip = 1 To .ListItems.Count
If .ListItems(ip).SubItems(1) > MaxValue Then
MaxValue = .ListItems(ip).SubItems(1)
End If
Next ip

End With
Me.Txt_Registro.Value = MaxValue + 1


No aguardo.

[Startec]

Use ListItems.Item que faz ref. a 1ª coluna:

Código: Selecionar todos

Sub Maior()
Dim ip As Integer
Dim MaxValue As Integer

'(1) refere-se a segunda coluna. Já que a contagem para listview começa com (0)


MaxValue = ListView1.ListItems.Item(1)

With ListView1


For ip = 1 To .ListItems.Count
If .ListItems(ip).Text > MaxValue Then
MaxValue = .ListItems(ip).Text
End If
Next ip

End With
Me.Txt_Registro.Value = MaxValue + 1
End Sub