Notifications
Clear all

Filtro Listview Combinando Cbo e txt

2 Posts
1 Usuários
0 Reactions
736 Visualizações
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Boa tarde
Tenho um controle de estoques e gostaria de fazer um filtro com combinação.

Inseri uma combobox
With cbovariavel
.AddItem "<"
.AddItem "<="
.AddItem "="
.AddItem "<>"
.AddItem ">="
.AddItem ">"
End With

e além disto uma textbox.

Serve para fazer a combinação: Por exemplo, o usuário que emitir um relatório somente dos produtos que possuam estoque. Escolheria na CBO ">" e na txt "0".

Eu não consegui fazer. Alguem já tem um exemplo disto?
Obrigado

 
Postado : 31/07/2017 11:25 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Tentei adaptar com o filtro da data que tinha. Lógico que preciso ajustar.
Alguem consegue dar uma luz?

Sub filtrovariavel()
Dim Tmp As Long
Dim i As Long
Dim scombo As Date
Dim stextbox As Date

On Error GoTo Erro ' acrescentei para evitar loop

Tmp = FrmEstoquesSaldo.ListView1.ListItems.Count

If cbovariavel = "" Then
cbovariavel.SetFocus
Exit Sub
ElseIf txtestoque = "" Then
txtestoque.SetFocus
Exit Sub

End If

scombo = cbovariavel.Value
stextbox = txtestoque.Value

For i = 1 To Tmp

With ListView1
If .ListItems(i).SubItems(7) = scombo & .ListItems(i).SubItems(7) = stextbox Then
FrmEstoquesSaldo.ListView1.ListItems.Remove i
i = i - 1
Tmp = Tmp - 1
If i = Tmp Then Exit For
Tmp = FrmEstoquesSaldo.ListView1.ListItems.Count
End If
End With
Next
Exit Sub
Erro:
cbovariavel.SetFocus
End Sub

 
Postado : 31/07/2017 4:13 pm