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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Datagrid e OptionButton
FKNMALTA
FRANCA
SP - BRASIL
ENUNCIADA !
Postada em 10/04/2008 22:42 hs         
Blz Treze deu certo, agora como eu passo a pesquisa encontrada para o formulario de cadastro, tipo as informações do datagrid para um textbox do formulario cadastro.....no cadastro de clientes quando pesquiso utilizo o listview fica assim:
 
Private Sub cmdOK_Click()
Load frmPesquisaCliente
    If rec.State > 0 Then rec.Close
    rec.open "select * from Clientes where codigo ='" & Lista.SelectedItem & "'", conn
    frmCadCliente.txtCodigo.Text = rec(0)
    frmCadCliente.txtNome.Text = rec(1)
    Unload frmPesquisaCliente
e com o datagrid no caso do CEP como fazer a mesma coisa?Jogar os dados da coluna CEP, RUA para o formulario de cadastro....
 
TÓPICO EDITADO
 
Treze
não registrado
Postada em 11/04/2008 09:05 hs   
Se entendi direito o que você quer é exibir os dados nos campos text ao se clicar em uma linha especifica do grid, ou selecionar no gris e exibir nos campos
     
FKNMALTA
FRANCA
SP - BRASIL
Postada em 11/04/2008 12:01 hs         
Isso mesmo, to no formulario do cadastro, clico no botao pra procurar o cep(sem ter preenchido nada no cadastro ainda)abre o formulario de busca de cep, encontro a rua e o cep, quando dou enter, dois cliques ou clico no botão OK, os dados que foram encotrados e que estao no grid vao para o formulario cadastro nos txtrua e txtcep, e o formulario de busca cep fecha..... 
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 11/04/2008 12:26 hs            
Qual o grid que você está usando datagrid, msflexgrid, ou listview
     
Perci
MATÃO
SP - BRASIL
Postada em 11/04/2008 12:57 hs            
Um exemplo com ListView (não sei se é o seu caso)
 
Private Sub Lista_DblClick()
    If Lista.ListItems.Count = 0 Then
        Exit Sub
    End If
    Cadastro.TxtCodigo = Lista.SelectedItem.Text
End Sub
Aí você cria uma Sub para prencher os outros campos do formulário:
Private Sub PreencheDados
sql = "Select * From Cadastro Where Cep Like '" & txtcep.text & "'"
set rs = db.OpenRecordset(sql)
 
txtrua.text = rs("rua")
txtendereco.text = rs("endereco")
 
End Sub
 
etc....
 
Deu para entender?
     
FKNMALTA
FRANCA
SP - BRASIL
Postada em 11/04/2008 17:37 hs         
VALEW GALERA CONSEGUI:
    frmCadCliente.txtRua.Text = dtgrdcep.Columns(1)
 
TÓPICO EDITADO
   
Página(s): 2/2     « ANTERIOR  

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