LIST1 PARA LIST2 E VICE-VERSA

ALANTB 28/05/2010 17:47:35
#343120
http://www.vbweb.com.br/forum_resp.asp?Forum=VB&Codigo=204739
Pessoal nesse link tem um exemplo de como mover itens de um list para outro.Só que no exemplo os itens são adicionados pelo método ADDITEM.Como ficaria se fosse carregados dados de um bd em ACCESS.A finalidade seria selecionar funcionarios de um departamento no combobox1 e carregar o list1 e no combobox2 selecionar o departamento de destino para os funcionarios.Como fica????
TECLA 30/05/2010 11:00:37
#343215
Mais ou menos assim:

Private Sub List1_DblClick()
List2.AddItem List1.List(List1.ListIndex)
Call AddRegistro(List1.List(List1.ListIndex), [Ô]Depto2[Ô])
List1.RemoveItem List1.ListIndex
Call DelRegistro(List1.List(List1.ListIndex), [Ô]Depto1[Ô])
End Sub

Private Sub List2_DblClick()
List1.AddItem List2.List(List2.ListIndex)
Call AddRegistro(List1.List(List1.ListIndex), [Ô]Depto1[Ô])
List2.RemoveItem List2.ListIndex
Call DelRegistro(List1.List(List1.ListIndex), [Ô]Depto2[Ô])
End Sub

Sub AddRegistro(Nome As String, Depto As String)
con.Execute [Ô]INSERT INTO Tabela1 (Nome, Depto) VALUES ([ô][Ô] & Nome & [Ô][ô], [ô][Ô] & Depto & [Ô][ô][Ô]
End Sub

Sub DelRegistro(Nome As String, Depto As String)
con.Execute [Ô]DELETE FROM Tabela1 WHERE Nome=[ô][Ô] & Nome & [Ô][ô] AND Depto=[ô][Ô] & Depto & [Ô][ô][Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar