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

 

  Dicas

  Visual Basic    (Controles Intrínsecos (Padrão))

Título da Dica:  Truques com ComboBox /Listbox
Postada em 9/9/2003 por Ð@®l@n            
' A combo/listbox possui uma propriedade SORT.
' Desta forma, setando a propriedade sort para true pode-se ordenar informações dentro da combo.

' O problema é que sempre que tentarmos inserir um novo item o item irá entrar em ordem alfabética/numérica, desta forma perdemos a referência ao item.

' Para resolver o problema podemos utilizar a propriedade NewIndex.
' A propriedade NewIndex serve justamente para nos informar qual o indice do item recem adicionado.

' E para que gostariamos de saber isso? Fácil : Relacionar uma informação dentro do vetor itemdata. Veja :

' Esse código está preenchendo a lista de uma combo com um campo nome do banco de dados.
' Mas para que o nome possa ser localizado no banco posteriormente é gravado dentro do itemdata correspondente o código do registro.
' Para fazer a gravação é utilizada a propriedade NewIndex.

' Assim sendo, quando o usuário selecionar o nome, bastará recuperar do itemdata o código referente aquele nome e ir buscar a informação na base de dados.
'''[CODE language=VB]
Private Sub Command1_Click()
   'rs é o objeto de conexao com o banco de dados (recordset)
   While Not rs.EOF
      Combo1.AddItem rs!nome
      Combo1.ItemData(Combo1.NewIndex) = rs!codigo
      rs.movenext
   Wend
End Sub
[/CODE]
 


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