Jump to content
dipacheco

Verificar se item existe em listbox + manipular texto de itens

Recommended Posts

dipacheco

boas pessoal...

tenho um select no meu prog q recebe um campo chamado codigo. quero q o programa veja se esse codigo ja existe numa listbox.. se n existir insere. se ja existir deve guardar o index desse campo. é possivel correr uma listbox ate encontrar uma string e retornar o index de onde a encontrou e, em caso de n encontrar, adicionar logo e retornar o index?? obrigado.

Share this post


Link to post
Share on other sites
ribeiro55

Sim, é possível.

Itera os itens com um simples ciclo For (não for each) e compara o que queres comparar.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
dipacheco

e faço o for ate quando?

for i = 0 to ...
   listbox1.selectedindex = i
   if listbox1.selecteditem.tostring = textbox1.text then
      index=i
   end if
next

mas falta-me as ...

e assim nao verifico caso nao existe... e nem sei se nao dá problemas caso a lista esteja vazia...

Share this post


Link to post
Share on other sites
ribeiro55

Até te falta mais do que isso.

ListBox1.SelectedIndex vai devolver sempre o mesmo índice nesse ciclo, porque não o afectas.

Tens de utilizar o "i" como índice. Li mal, ou alteraste o código

Até quando? Que tal até não haver mais itens na ListBox? ListBox.Items.Count-1


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
Andrepereira9

Tens aqui uma maneira

Dim existe As Integer = 0
Dim Index as integer
For i As Integer = 0 To ListBox1.Items.Count - 1
     If ListBox1.Items.Item(i) = "André".ToString Then
         index = i
          existe = 1
     End If
Next

If existe = 0 Then
     ListBox1.Items.Add("André")
End If


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
dipacheco

thanks! :confused:

ja agora mais um problema...

imagina q quero insiro o andré, como inseriste! ate aqui td bem... guardei o index q foi o zero neste caso.

depois tnh d fazer uns calculos e colocar esses dados noutras 2 listboxes... q sao referentes ao andre, logo ficarao no index zero das respectivas listboxes...

sabendo que index = zero

se eu fizer listbox2.selectedindex = index e listbox3.selectedindex = index

selecciono o campo referente ao andré...

mas imagina que esse andré é um campo comum em várias pessoas da BD e o q quero é q sempre q ele encontre andré vá à listbox2 e à 3 e mediante o q recebe da bd adicione ao q ja la estava, sabendo q sao inteiros..

por exemplo.. leio andre 5 5 e nao existe andre

entao fica

andre 5 5

a seguir leio novamente andre 10 10

entao fica

andre 15 15

como faço essa adiçao em valores da listbox???

Share this post


Link to post
Share on other sites
dipacheco

a primeira vez nao funciona porque a listbox n tem valores... logo, o selectedindex = 0 dá erro...

Share this post


Link to post
Share on other sites
Caça

Tens de fazer a verificação

IF ListBox1.Items.Count = 0 Then Exit Sub


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
dipacheco

sim, isso para controlar se ja existe ou nao é suficiente.

e como faço a incrementaçao a um valor da listbox? eu fiz algo deste genero mas nao incrementa...

ListBox2.SelectedItem = Val(ListBox2.SelectedItem) + (Val(TextBox20.Text) - Val(TextBox14.Text))

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.