SELECIONANDO UM INTEM DENTRO DA COMBO

JONATHANSTECKER 31/07/2010 11:13:25
#349014

ComboBox1.SelectedIndex = i

EDERMIR 31/07/2010 11:19:30
#349015 Resposta escolhida

Explique melhor o que você quer fazer. Editar o que?

JONATHANSTECKER 31/07/2010 11:21:55
#349016

Desculpe, acabei colocando o código para VB.NET.

Mas acho que é isso que você está querendo...

Dim Estado As String
Dim i As Integer

For i = 0 To Combo1.ListCount - 1
If UCase$(Combo1.List(i)) = UCase$(Estado) Then
Combo1.ListIndex = i
Exit For
End If
Next

Fonte: Combo Box Demo Program

CJMCARDOSO 31/07/2010 11:22:07
#349017

Bom é seguinte no cadastro de cliente existem duas combobox cidade e estado que trago o conteudo de uma tabela, correto, bom essa combobox funciona ok ele traz os dados corretos, na hora que vou editar eu trago os dados da tabela de cliente, por exemplo se cara é de sao paulo na hora de preencher a combo de estado tem que deixar selecionado sp e a cidade Sao paulo

CJMCARDOSO 31/07/2010 12:07:40
#349020

resolvi valeu

NILTON.VIANNA 31/07/2010 12:12:19
#349022

Private Sub txtNome_LostFocus()
If Trim(txtNome <> [Ô][Ô]) Then
txtNome = Maiuscula(txtNome)
End If

If RS.State = 1 Then RS.Close
[ô]Neste caso, vamos usar [Ô]*[Ô] para pegar todos os campos ou citar o nome dos campos no select
SQL = [Ô]Select * From CadClientes Where Nome =[ô][Ô] & txtNome.Text & [Ô][ô][Ô]
RSS.Open SQL, CnSql, adOpenKeyset, adLockPessimistic
If RSS.RecordCount > 0 Then
MsgBox [Ô]Existe um Cliente com esse Nome Cadastrado ![Ô], vbExclamation, [Ô] Cliente já Cadastrado[Ô]

[ô]Coloque aqui o código para carregar os campos
txtClienteID.Text = RSS([Ô]ClienteID[Ô])
txtCadastro.Text = RSS([Ô]Cadastro[Ô])
txtEndereco.Text = RSS([Ô]Endereco[Ô])
txtCidade.Text = RSS([Ô]Cidade[Ô])
cboEstado.Text = RSS([Ô]Estado[Ô])
vOp = [Ô][Ô]
End If
RSS.Close
End Sub

[ô] Quando vc digitar o mesmo nome ele automaticamente coloca no seu textbox os campos correspondentes..
ok.