SELECIONANDO ALGO EM DATAGRID

USUARIO.EXCLUIDOS 27/07/2005 16:22:33
#96260
Boa-tarde. Como posso fazer para quando eu selecionar algum registro da minha tabela em algum das colunas e ele exibir o valor desta coluna em um textbox?


obrigado.
GABRIEL.LOGAN 27/07/2005 16:26:12
#96263 
Private Sub DataGrid1_lClick()
Text1.Text = DataGrid1.SelText
End Sub


Vê se funciona
USUARIO.EXCLUIDOS 27/07/2005 16:40:16
#96269
Olá GABRIEL_LOGAN. Não funcionou. Está habilitada a opção tipo MARQUEETYLE = dbgHighightCell habilitada. Não sei se influencia algo. Mas se o usuario clicar na setinha do lado da linha do registro, ele ira selecionar o texto da coluna que eu quiser?


Obrigado
USUARIO.EXCLUIDOS 28/07/2005 09:06:30
#96350
Pessoal, não á para pegar o que está escrito no item que está selecionado de uma coluna?
USUARIO.EXCLUIDOS 28/07/2005 12:37:52
#96401 Resposta escolhida
Oiii eu fiz assim no meu projeto ó:
no vento RowColChange do dataGrid eu puis minha rotina de preencher os campos olha
 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

'Preenche os campos com o registro selecionado
      Call PreencheCampos

End Sub


Aqui minha rotina de preencher os campos:
 'Função usada para preencher os campos da tabela clientes
    Private Function PreencheCampos()
        On Error GoTo tratamento
        
        'Se não tiver registros entãonaum carrega as caixas de textos
        txtCodigo.Text = RSCli("CodigoCliente")
        txtNome.Text = RSCli("Nome")
        txtCPF.Text = RSCli("CPF")
        txtCNPJ.Text = RSCli("CNPJ")
        txtEndereco.Text = RSCli("Endereco")
        txtCEP.Text = RSCli("CEP")
        txtCidade.Text = RSCli("Cidade")
        txtEstado.Text = RSCli("Estado")
        txtTelefone.Text = RSCli("Telefone")
        txtEmail.Text = RSCli("Email")
        txtOBS.Text = RSCli("OBS")
        
        'Sai da funçãopor causa do tratamento
        Exit Function
        
'Tratamento de Erros
tratamento:
    If Err.Number = 3265 Then
        Exit Function
    ElseIf Err.Number = 3021 Then
        Exit Function
    Else
        MsgBox Err.Description, vbCritical, "Erro"
    End If
    
    End Function


Espero que tenha ajude issu...
USUARIO.EXCLUIDOS 28/07/2005 13:26:44
#96417
Olá LUANINHA. Muito obrigado pela ajuda.
Tópico encerrado , respostas não são mais permitidas
Voltar