(Resolvido) Combox dropdownList

[Flecha]

Pessoal,

Coloquei a propriedade das combox do meu projeto para DropdownList, assim o usuário só usa o que tem na combo e não aceita nomes fora da combo.

Dessa forma ela fica só leitura.

Acontece que quando for incluir um novo registro é chamado a sub para limpar os controles e não afeta as combos permanecendo com os dados do registro que estava na tela.

Tem como contornar para manter em branco as combos quando for incluir?

Flecha

[kuroi]

você não quer apagar as linhas q tem, so quer q nenhum item fique selecionado, seria isso??

nesse caso, o codigo seria:

Combo1.ListIndex = -1

mas se por acaso você ta querendo apagar todas as linhas, seria:

Combo1.Clear

[Flecha]

Kuroi,

coloquei o

Combo1.ListIndex = -1

na linha da sub que limpava a combo com Combo1 = "" E ficou funcionando como queria. Nesse projeto Coloquei a mesma coisa em outro projeto e esta dando erro Compile error Cant't assign to read-only property Tem essas subs que acho que estão relacionadas:

Carrega os dados do ListView para os campos do form quando clicado
'-----------------------------------------------------------------------------
Private Sub lvwCustomer_ItemClick(ByVal Item As MSComctlLib.ListItem)
'-----------------------------------------------------------------------------

    gblnPopulating = True
    
    With Item
        txtNOME.text = .text
        TxtID.text = .SubItems(mlngCUST_ID_IDX)
        txtRg.text = .SubItems(mlngCUST_RG_IDX)
        txtENDEREÇO.text = .SubItems(mlngCUST_ENDEREÇO_IDX)
        txtCidade.text = .SubItems(mlngCUST_cidade_IDX)
        txtEstado.text = .SubItems(mlngCUST_ESTADO_IDX)
        txtCep.text = .SubItems(mlngCUST_cep_IDX)
        TxtCpf.text = .SubItems(mlngCUST_CPF_IDX)
        TxtBairr.text = .SubItems(mlngCUST_Bairro_IDX)
        TxtNac.text = .SubItems(mlngCUST_Nac_IDX)
        TxtNat.text = .SubItems(mlngCUST_Nat_IDX)
        TxtNasc.text = .SubItems(mlngCUST_Nasc_IDX)
        TxtPai.text = .SubItems(mlngCUST_Pai_IDX)
        TxtMae.text = .SubItems(mlngCUST_Mae_IDX)
        TxtPos.text = .SubItems(mlngCUST_Pos_IDX)
        TxtNum.text = .SubItems(mlngCUST_Num_IDX)
        TxtCompl.text = .SubItems(mlngCUST_Compl_IDX)
        TxtEst_Civil.text = .SubItems(mlngCUST_Civ_IDX)
        TxtObs.text = .SubItems(mlngCUST_Obs_IDX)
        Combo2.text = .SubItems(mlngCUST_Combo2_IDX)
        Combo3.text = .SubItems(mlngCUST_Combo3_IDX)
        Combo1.text = .SubItems(mlngCUST_Combo1_IDX)
        Txtel.text = .SubItems(mlngCUST_TELRES_IDX)
        Txtelc.text = .SubItems(mlngCUST_TELCEL_IDX)
        
       
        
    End With
    
    gblnPopulating = False
     
     On Error GoTo ERRO1
    
    Dim caminho As String
    Dim varRG As String
    varRG = Me.txtRg.text

    caminho = "c:\Cadastro\fotos\"

    ImgFoto.Picture = LoadPicture([caminho] & [varRG] & ".jpg")
    Exit Sub
ERRO1:
ImgFoto.Picture = LoadPicture([caminho] & "BRASAOSP.JPG")

    End Sub

e esta que limpa

Private Sub ClearCurrRecControls()
'-----------------------------------------------------------------------------
    
    gblnPopulating = True
    
    txtNOME.text = ""
    txtRg.text = ""
    txtENDEREÇO.text = ""
    txtCidade.text = ""
    txtEstado.text = ""
    txtCep.text = ""
    TxtCpf.text = ""
    TxtBairr.text = ""
    TxtNac.text = ""
    TxtNat.text = ""
    TxtNasc.text = ""
    TxtPai.text = ""
    TxtMae.text = ""
    TxtPos.text = ""
    TxtNum.text = ""
    TxtCompl.text = ""
    TxtEst_Civil.text = ""
    TxtObs.text = ""
    Combo1.Index = -1
    'Combo2.Index = -1
    'Combo3.Index = -1
    'Combo2.text = ""
    'Combo3.text = ""
    'Combo1.text = ""
    Txtel.text = ""
    Txtelc.text = ""
    TxtID.text = ""

No modo imediato para debug quando passo o mose sobre o comando acima Combo1.index= -1

aparece esse valor mlngCust_Combo1_IDX=22

e agora?

Obrigado

Flecha

Editado Maio 4, 2010 por Flecha

[kuroi]

flecha, não é Index, é ListIndex.

[Flecha]

Kuroi,

perdoe a santa ignorancia e a cegueira.

Resolvido

Obrigado e até breve..

Flecha