dipacheco 0 Report post Posted March 23, 2011 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 47 Report post Posted March 23, 2011 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 0 Report post Posted March 23, 2011 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 47 Report post Posted March 23, 2011 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 4 Report post Posted March 23, 2011 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 0 Report post Posted March 23, 2011 thanks! 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 0 Report post Posted March 23, 2011 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 17 Report post Posted March 23, 2011 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 0 Report post Posted March 23, 2011 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
dipacheco 0 Report post Posted March 23, 2011 perfect Share this post Link to post Share on other sites
