NO MESMO FORMULARIO FOCO EM DOIS LISTVIEW
Pessoal, boa tarde!
Tenho um formulario onde consta 2 listview.
O mesmo cliente pode constar nos dois listview, entao quando o usuario digitar o codigo do cliente em um TEXT, o sistema ta encontrando e selecionando no primeiro listview. Seria possivel no mesmo formulario selecionar no outro listview tambem? ou seja, ficaria uma linha selecionada no list1 e outra no list2.
obrigado,
Emanuel
Tenho um formulario onde consta 2 listview.
O mesmo cliente pode constar nos dois listview, entao quando o usuario digitar o codigo do cliente em um TEXT, o sistema ta encontrando e selecionando no primeiro listview. Seria possivel no mesmo formulario selecionar no outro listview tambem? ou seja, ficaria uma linha selecionada no list1 e outra no list2.
obrigado,
Emanuel
posta seu código que seleciona o list.
Olá
Segue codigo onde seleciona o codigo em um list
Private Sub TxtNumOP_LostFocus()
If TxtNumOP.Text = [Ô][Ô] Then Exit Sub
Set itemD = ListVD.FindItem(TxtNumOP.Text)
If itemD Is Nothing Then
MsgBox [Ô]O.P não cadastrada, verifique![Ô]
TxtNumOP.SetFocus
Foco TxtNumOP
Else
itemD.Selected = True
itemD.EnsureVisible
End If
End sub
obrigado
Segue codigo onde seleciona o codigo em um list
Private Sub TxtNumOP_LostFocus()
If TxtNumOP.Text = [Ô][Ô] Then Exit Sub
Set itemD = ListVD.FindItem(TxtNumOP.Text)
If itemD Is Nothing Then
MsgBox [Ô]O.P não cadastrada, verifique![Ô]
TxtNumOP.SetFocus
Foco TxtNumOP
Else
itemD.Selected = True
itemD.EnsureVisible
End If
End sub
obrigado
Entao,
Hoje o codigo ja seleciona o codigo encontrado no listv1. Dai, queria que ficasse selecionado tanto no listv1 como no listv2, caso encontre o mesmo codigo do listv1
obrigado,
Hoje o codigo ja seleciona o codigo encontrado no listv1. Dai, queria que ficasse selecionado tanto no listv1 como no listv2, caso encontre o mesmo codigo do listv1
obrigado,
não sei se penso simples demais mas veja:
Private Sub TxtNumOP_LostFocus()
If TxtNumOP.Text = [Ô][Ô] Then Exit Sub
Set itemD = ListVD.FindItem(TxtNumOP.Text)
If itemD Is Nothing Then
MsgBox [Ô]O.P não cadastrada, verifique![Ô]
TxtNumOP.SetFocus
Foco TxtNumOP
Else
itemD.Selected = True
itemD.EnsureVisible
End If
Set itemD2 = ListVD2.FindItem(TxtNumOP.Text)
If itemD2 Is Nothing Then
MsgBox [Ô]O.P não cadastrada, verifique![Ô]
TxtNumOP.SetFocus
Foco TxtNumOP
Else
itemD2.Selected = True
itemD2.EnsureVisible
End If
End sub
Caro Marcelo
Já tinha feito dessa forma, mas tambem nao funciona.
ou seja, a seleção (foco) so fica no primeiro LISTV
obrigado,
Já tinha feito dessa forma, mas tambem nao funciona.
ou seja, a seleção (foco) so fica no primeiro LISTV
obrigado,
faça diferente ao invés de foco destaque a linha com uma cor
Tópico encerrado , respostas não são mais permitidas