PROBLEMAS AO CARREGAR DADOS FIREBIRD COM LISTVIEW

MARCELO.TREZE 11/01/2011 14:38:57
#361885
treze-vb@hotmail.com

tente enviar pelo e-mail

não poderei estar online agora
SAMUKA 11/01/2011 15:07:43
#361889 Resposta escolhida
1º Problema:

 Private Sub Editar()
If RSFUN.RecordCount = 0 Then
    MsgBox [Ô]Não existem dados a serem editados.[Ô], vbCritical, [Ô]GWorks Softs[Ô]
    Exit Sub
Else
    Unload Me
    frmEditFunc.txtCodigo.Text = lstRegistro.ListItems(lstRegistro.SelectedItem.Index)
    frmEditFunc.Show
End If
End Sub


Vc está descarrregando o form, antes de setar o valor no frmEditFunc! O 
 Unload Me
deve ser depois
SAMUKA 11/01/2011 15:27:42
#361892
2º Problema

  txtNasc.Text = Format(RSFUN!NASCIMENTO, [Ô]dd/mm/yyy[Ô])


Altere pra 

  txtNasc.Text = IIf(IsNull(!Nascimento) = True, [Ô]__/__/____[Ô], !Nascimento)
ADRIANOM 11/01/2011 15:34:34
#361894
Marcelo-Treze, Carlos Fianna e demais companheiros... Agradeço imensamente todos nesta jornada..
Samuca agradeço pela simples solução e funcional prestada...

pontuação sua camarada!!!
Página 5 de 5 [44 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar