DblClick()

[Alex Mauricio]

Pessoal, tenho um Flex Grid com alguns dados e gostaria de que quando desse o duplo click, que ele preenchesse os campos Text e combo, conforme o código abaixo:

Private Sub FlexGridCadastro_DblClick()
FlexGridCadastro.Col = 0
txtCodigoCliente.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 1
txtTelefone.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 2
If Trim(FlexGridCadastro.Text) = "Bloqueado" Then
    telefoneBloqueado.Value = 1
ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then
    telefoneBloqueado.Value = 0
End If

FlexGridCadastro.Col = 3
comboFonte = FlexGridCadastro.Text

FlexGridCadastro.Col = 4
txtNomeCliente = FlexGridCadastro.Text

FlexGridCadastro.Col = 5
txtDataCadastro.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 6
txtHoraCadastro.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 7
txtDataUltimaLigacao.Text = FlexGridCadastro.Text

FlexGridCadastro.Col = 8
comboSituacao = FlexGridCadastro.Text

FlexGridCadastro.Col = 9
txtObservacoes = FlexGridCadastro.Text
End Sub[/i][/b]

Porém, quando faço o duplo click aparece a seguinte mensagem:

[i][b]Run-Time error '383'

'Text' proprerty is read-only

Fui ver o erro e ta apontado para esta linha:

comboFonte = FlexGridCadastro.Text

O que eu faço?

Obrigado

[kuroi]

o seu combobox deve estar com style = 2 (Dropdown List), onde o cara não pode digitar nele, certo??

então você não consegue editar o text mesmo.

o q esta no flexgrid?? é o indice q você tem q por no combo ou o text q você vai ter q escrever??

se for o indice, então é so fazer assim:

comboSituacao.ListIndex = FlexGridCadastro.Text

agora, se for o texto, ou você poe o style = 0 (Dropdown Combo), ou, caso o text do flexgrid esteja na lista do combo, você vai ter q procurar e setar o listindex correspondente.