USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  List Box
Luiz Humberto
GOIÂNIA
GO - BRASIL
Postada em 11/05/2004 15:32 hs            
Na listbox eu carregei da seguinte forma:
 ListDisponiveis.AddItem UCase(!Descricao)
 ListDisponiveis.ItemData(ListDisponiveis.NewIndex) = (!Cod_Aplicacao)
Só que os dados que estão nesta listbox alguns passaram para outra listbox e são os que passar, que preciso gravar pegando o cod_aplicacao.
Quem poder ajudar Valew.
     
Rinaldo
não registrado
Postada em 11/05/2004 15:36 hs   
???
     
Luiz Humberto
GOIÂNIA
GO - BRASIL
Postada em 11/05/2004 16:17 hs            
como pegar o codigo e não o texto da list box
     
ACG1504
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 11/05/2004 16:22 hs            
como assim o codigo,,,???//
     
Luiz Humberto
GOIÂNIA
GO - BRASIL
Postada em 11/05/2004 18:16 hs            
Explicarei melhor:
No Form tenho uma combo e dois list box, onde após clicar na combo a primeira listbox é preenchida e tenho um botão que pode escolher quais das opções vão para a segunda list box até aí tudo bem, agora quero pegar os dados que foram selecionados na segunda list box e gravar no banco.
Acho que meu erro está qdo faço a inserção na segunda listview estou fazendo assim
 ListEscolhidas.AddItem (ListDisponiveis.List(ListDisponiveis.ListIndex))
 ListDisponiveis.RemoveItem (ListDisponiveis.ListIndex)
e não estou inserindo o itemdata por isso quando uso a propriedade
 ListEscolhidas.ItemData(ListEscolhidas.ListIndex) dá um erro.
     
Luiz Humberto
GOIÂNIA
GO - BRASIL
Postada em 12/05/2004 12:10 hs            
Fazendo assim funciona:

ListEscolhidas.AddItem (ListDisponiveis.List(ListDisponiveis.ListIndex))
ListEscolhidas.ItemData(ListEscolhidas.NewIndex) = ListDisponiveis.ItemData(ListDisponiveis.ListIndex)
ListDisponiveis.RemoveItem (ListDisponiveis.ListIndex)

Agora qdo fazer assim ListEscolhidas.ItemData(ListEscolhidas.ListIndex) pois colocou

ListEscolhidas.ItemData(ListEscolhidas.NewIndex) = ListDisponiveis.ItemData(ListDisponiveis.ListIndex)

não irá dar mais erro.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página