dipacheco 0 Posted March 23, 2011 Report Share 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. Link to post Share on other sites
ribeiro55 47 Posted March 23, 2011 Report Share 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" Link to post Share on other sites
dipacheco 0 Posted March 23, 2011 Author Report Share 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... Link to post Share on other sites
ribeiro55 47 Posted March 23, 2011 Report Share 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" Link to post Share on other sites
Andrepereira9 4 Posted March 23, 2011 Report Share 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. Link to post Share on other sites
dipacheco 0 Posted March 23, 2011 Author Report Share 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??? Link to post Share on other sites
dipacheco 0 Posted March 23, 2011 Author Report Share Posted March 23, 2011 a primeira vez nao funciona porque a listbox n tem valores... logo, o selectedindex = 0 dá erro... Link to post Share on other sites
Caça 17 Posted March 23, 2011 Report Share 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 Link to post Share on other sites
dipacheco 0 Posted March 23, 2011 Author Report Share 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)) Link to post Share on other sites
dipacheco 0 Posted March 23, 2011 Author Report Share Posted March 23, 2011 perfect Link to post Share on other sites
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now