List Box

[Luiz Humberto]

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 valeu.

[Luiz Humberto]

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á quando 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]

Fazendo assim funciona:

ListEscolhidas.AddItem (ListDisponiveis.List(ListDisponiveis.ListIndex))

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

ListDisponiveis.RemoveItem (ListDisponiveis.ListIndex)

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

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

não irá dar mais erro.

[William Rodrigues]

Boa Luiz Humberto

Abraços,

William Rodrigues