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