USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problema com mshflexgrid - URGENTE
Expedito Junior
RECIFE
PE - BRASIL
Postada em 09/03/2006 12:23 hs            
Amigos:
 
Meu problema é o seguinte:
 
Tenho um mshflexgrid que é preenchido com um recordset. Até ai tudo ok. Mas eu quero por exemplo, dá um duplo clique em uma determinada linha para abrir um form com os dados daquela linha, mas qdo faço isso, os dados que aparece são os da primeira linha do grid. Como faço para resolver esta questão. Segue abaixo o codigo para compreenção:
CODIGO QUE PREENCHE O GRID:
 
Private Sub Form_Load()
If rs.State = 1 Then
    rs.Close
    rs.ActiveConnection = Nothing
End If
rs.CursorLocation = adUseClient
rs.Open "Select * from Contatos order by Nome", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub
 
CODIGO QUE ABRE O 2º FORM COM OS DADOS DA LINHA QUE FOI CLICADA NO GRID
Private Sub MSHFlexGrid1_DblClick()
frmDetalhe.Show
End Sub
CODIGO QUE CHAMA OS DADOS PARA O FORM
Private Sub Form_Load()
frmAgenda.Visible = False
lblNome.Caption = rs!Nome
lblTelComercial.Caption = rs!Telefone_Comercial
lblRamal.Caption = rs!Ramal_Comercial
lblTelResidencial.Caption = rs!telefone_residencial
lblCelular.Caption = rs!celular
lblFax.Caption = rs!fax
lblEmail.Caption = rs!email
lblEndereco.Caption = rs!endereço
lblBairro.Caption = rs!bairro
End Sub
Aguardo ajuda

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 09/03/2006 12:28 hs         
Private Sub MSHFlexGrid1_DblClick()
rs.Open "Select * from Contatos Where campo = " & mshflexgrid1.textmatrix(mshflexgrid1.col,mshflexgrid1.row) , db, adOpenStatic, adLockOptimistic
frmDetalhe.Show
End Sub
 
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página