combo box - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: combo box

anderson

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 04/08/2004 15:48 hs

estou carregando a lista de estados em uma combo para fazer os cadastro

queria que quando for alterar os dados do cliente o mesmo valor que esta no tabela no campo estado

como posso fazer isso

obs. na tabela cliente eu gravo o codigo e nao a descriçao do estado

Sub CarregaCboEstado(cbo As ComboBox)
cbo.Clear
    sql = "SELECT des_estado,cod_estado FROM estado ORDER BY cod_estado ASC"
    Set rs = db.Execute(sql)
     cbo.AddItem " -- "
      cbo.ListIndex = 0
         Do While Not rs.EOF
           cbo.AddItem rs!des_estado
              cbo.ItemData(cbo.NewIndex) = rs!cod_estado

        rs.MoveNext
Loop
rs.Close
End Sub

chamando a função

CarregaCboEstado,cbo_estado

eu carrego uma combo com o codigo do registro no (listindex do itemdata) e a descriçao no text da combo

ex para um certo cliente gravei estado SP cujo o codigo do estado na tabela estado e 1

quando eu carrego a combo o valor no itemdata para este estado e um

a questã é quando eu for exibir os dados de um cliente quero que a combo pegue no (listindex) do (itemdata) o mesmo valor que esta gravado nos dados do cliente e exiba a descrição do estado

TÓPICO EDITADO

|-tom-|

CATANDUVA
SP - BRASIL

ENUNCIADA !

Postada em 04/08/2004 16:28 hs

eu nao entendi o q vc quer ? tem como vc ser mais especifico

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

Isaías 26:4

Silvio

SBC
SP - BRASIL

ENUNCIADA !

Postada em 04/08/2004 16:48 hs

Veja se é isso que vc quer

dim i as integer

For i = 0 To cboDepto.ListCount - 1
      If cboDepto.ItemData(i) = rs!cod_estado Then
         cboDepto.ListIndex = i
         Exit For
      End If
Next i

primeiro eu carrego a combo e no momento da seleção eu pergunto se o indice da combo é igual ao indice da tabela

espero ter ajudado

Silvio

Patrick

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 04/08/2004 16:51 hs

codigo = cbo.itemdata(cbo.listindex)

Wes
não registrado

ENUNCIADA !

Postada em 05/08/2004 15:22 hs

tente fazer assim.

sql = "SELECT des_estado,cod_estado FROM estado ORDER BY cod_estado ASC"

if rs ! RecordCount > 0 Then

For i=1 To rs.RecordCount

Combo1.AddItem rs ! Campo_da_Tabela

Combo1.ItemData(Combo1.NewIndex)=rs!Codigo_do_Campo

rs.MoveNext

Next i

End If

rs --> RecordSet

---- Crie uma label chamada " lblCod "

Private Sub Combo1_Click()

sql = "SELECT des_estado,cod_estado FROM estado Where cod_estado=" & lblCod

certo brother

qualquer dúvida é só me mandar um e-mail.

Página(s): 1/1