MSFLEXGRID1
Ola
Eu tenho uma consulta feita em MSFlexGrid1
Despois que faço a consulta e acho o cliente que eu quero eu clico em cima desse cliente e ele automaticamente joga todo os dados desse cliente no FOMR CLIENTES...
Mais quando eu jogo os dados ele ta sobrecrevendo:
eu uso esse comando aki para jogar os dados do MSFLEXGRID1 no FORM CLIENTES
Eu tenho uma consulta feita em MSFlexGrid1
Despois que faço a consulta e acho o cliente que eu quero eu clico em cima desse cliente e ele automaticamente joga todo os dados desse cliente no FOMR CLIENTES...
Mais quando eu jogo os dados ele ta sobrecrevendo:
eu uso esse comando aki para jogar os dados do MSFLEXGRID1 no FORM CLIENTES
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.Col <> 1 Then
MSFlexGrid1.Col = 1
End If
FrmAlteracaodePasta.txtnumerodapasta.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtlocalizacao.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtcodigo.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtcadastro.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtprocesso.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtnome.Text = MSFlexGrid1.Text
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
FrmAlteracaodePasta.txtsituacao.Text = MSFlexGrid1.Text
Unload Me
End Sub
Como assim ..subscrevendo.....
nao entendi, sobrescrevendo o que, e outra coisa, onde voce ta dando um show no formulario cliente ?
Por exemplo....eu ja tenho um cliente cadastrado no meu FORM...ai quando eu faço uma consulta no MSFlexGrid1 de um outro cliente e puxo os dados dele ele sobrescreve o primeiro cliente cadastrado...nao sei pq...
Citação:GMANCINE escreveu:
Por exemplo....eu ja tenho um cliente cadastrado no meu FORM...ai quando eu faço uma consulta no MSFlexGrid1 de um outro cliente e puxo os dados dele ele sobrescreve o primeiro cliente cadastrado...nao sei pq...
e voce quer que "junte" os clientes?
Private Sub MSFlexGrid1_Click()
campo.text = msflexgrid1.textmatrix(msflexgrid1.row,0)
End Sub
faça isso em todos os campos que deseja e veja direito qual row ira usar em cada campo
falow
campo.text = msflexgrid1.textmatrix(msflexgrid1.row,0)
End Sub
faça isso em todos os campos que deseja e veja direito qual row ira usar em cada campo
falow
Valeu amigo deu certinho
Tópico encerrado , respostas não são mais permitidas