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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Varios Dados Em Um Combo
ventana
SANTOS
SP - BRASIL
Postada em 30/03/2006 13:18 hs            
Ola Amigos
 
Alguem teria uma rotina que exibisse varios dados em um Combo.Da seguinte forma:
Eu seleciono um tem do Combo, o Nome de uma pessoa por exemplo e desa forma, o Combo me exibira outros dados da mesma, como endereco,cidade,estado,telefone etc.
 
Ou seja, preciso de um combo que exiba multiplas informacoes.
 
Obrigado a todos
     
>>|Bedin|<<
SANTO ANDRE
SP - BRASIL
Postada em 30/03/2006 14:46 hs            
No módulo:

Sub CARREGA_SIGCLI(FORMU As Form)
AXSQL = "SELECT SIGCLI AS A FROM CLIENTE" 'REFERENTE A TABELA CLIENTE
Set MSS = DB.OpenRecordset(AXSQL)
While Not MSS.EOF
FORMU.SIGCLI.AddItem MSS("A") 'REFERENTE AO FORMULÁRIO
MSS.MoveNext
Wend
End Sub

Sub CARREGA_USUIP(FORMU As Form, SIGCLI As String)
AXSQL = "SELECT USUIP AS B FROM IP WHERE SIGCLI='" + SIGCLI + "'"
Set MSS = DB.OpenRecordset(AXSQL)
While Not MSS.EOF
FORMU.USUIP.AddItem MSS("B")
MSS.MoveNext
Wend
End Sub

No form:

no evento _Click() do seu combobox digite:
Call combobox1_LostFocus

.:Rodrigo Bedin:.
     
ventana
SANTOS
SP - BRASIL
Postada em 01/04/2006 17:17 hs            
Obrigado Bedin, eu vou experimentar.
 
Um Abraço
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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