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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  MSFlexGrid - Duplo Crick para entrar automático
Nilton Vianna
AMPARO
SP - BRASIL
Postada em 01/03/2009 12:22 hs         

Tenho uma pesquisa feita em MSFlexGrid

Teria como um duplo crick,  na listagem  para entrar automático a pesquisa.

Grato

 

     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/03/2009 14:56 hs            
Tente explicar melhor o que deseja
   
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 01/03/2009 15:44 hs         

Tenho um campo de pesquisa minha listagem é em MSFlexGrid,

Seleciono a linha que contem os dados da pesquisa,  e digito OK

queria com um  duplo Crick na linha e automaticamente entrar na minha tela de Dados do Cliente,

 sem ter que selecionar e depois Button OK..

 

 
   
João Carlos jr.
RIBEIRÃO PRETO
SP - BRASIL
Postada em 01/03/2009 18:07 hs            
É só vc coloca o código do botão ok no evento DblClick do msflexgrid que irá funcionar.
 
Espero ter lhe ajudado.
 
Flw.
 
 

João Carlos Junior

Administrador de Redes - Windows 2003 Srv, Linux

    Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X

Iniciante em C# e ASP .NET

     
Nilton Vianna
AMPARO
SP - BRASIL
ENUNCIADA !
Postada em 01/03/2009 18:45 hs         
O Comando Button é esse:
-------------------------
So que estou tentando incluir direto do TextMatrix sem ter que selecionar e depois digitar OK.
 
Private Sub cmdOK_Click()
If Len(grdPesquisa.TextMatrix(1, 0)) > 0 Then
  FrmCadClientes.txtClienteID = grdPesquisa.TextMatrix(grdPesquisa.Row, 0)
  Unload Me
  FrmCadClientes.MostraDadosCliente
  FrmCadClientes.txtNome.SetFocus
  Exit Sub
End If
End Sub
 
Obrigado
 
   
Treze
não registrado
Postada em 01/03/2009 18:49 hs   
Como o colega explicou coloque no dblclick do flexgrid
 
assim
 
Private Sub grdPesquisa_DblClick()
If Len(grdPesquisa.TextMatrix(1, 0)) > 0 Then
  FrmCadClientes.txtClienteID = grdPesquisa.TextMatrix(grdPesquisa.Row, 0)
  Unload Me
  FrmCadClientes.MostraDadosCliente
  FrmCadClientes.txtNome.SetFocus
  Exit Sub
End If
End Sub
pronto de um duplo click na linha que deseja exibir
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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