Olá amigos, estou precisando de uma ajuda com relação a este código.
Private Sub CommandButton3_Click()
txt_cod_produto.Text = ""
combo_descricao.Text = ""
Call Pesquisar1
'Filtrar por uma coluna retirando o registro do listview
Dim Tmp As Integer, i As Integer
On Error Resume Next
Tmp = ListView1.ListItems.Count 'Troque para o nome de seu formulario
For i = 1 To Tmp
With ListView1
If i > Tmp Then GoTo saida
If .ListItems(i).SubItems(5) > .ListItems(i).SubItems(6) Then 'Supondo que o valor a ser filtrado seja a coluna 5 maior que a 6
ListView1.ListItems.Remove i
i = i - 1
Tmp = Tmp - 1
End If
End With
Next
saida:
Call SOMA_LISTA
Me.label_registro = dataini & " " & datafim & " " & Me.ListView1.ListItems.Count & " Registro(s)"
End Sub
Tenho uma coluna no listview estoque mínimo e outra estoque atual, gostaria de filtrar assim: quando meu estoque atual estiver menor que o mínimo filtrar somente valores que estão abaixo do mínimo.
pode ajudar-me amigos?
Private Sub CommandButton3_Click()
txt_cod_produto.Text = ""
combo_descricao.Text = ""
Call Pesquisar1
'Filtrar por uma coluna retirando o registro do listview
Dim Tmp As Integer, i As Integer
On Error Resume Next
Tmp = ListView1.ListItems.Count 'Troque para o nome de seu formulario
For i = 1 To Tmp
With ListView1
If i > Tmp Then GoTo saida
If .ListItems(i).SubItems(5) > .ListItems(i).SubItems(6) Then 'Supondo que o valor a ser filtrado seja a coluna 5 maior que a 6
ListView1.ListItems.Remove i
i = i - 1
Tmp = Tmp - 1
End If
End With
Next
saida:
Call SOMA_LISTA
Me.label_registro = dataini & " " & datafim & " " & Me.ListView1.ListItems.Count & " Registro(s)"
End Sub
Tenho uma coluna no listview estoque mínimo e outra estoque atual, gostaria de filtrar assim: quando meu estoque atual estiver menor que o mínimo filtrar somente valores que estão abaixo do mínimo.
pode ajudar-me amigos?