UTILIZANDO CONSTANTE PARA PREENCHER COMBO

USUARIO.EXCLUIDOS 19/04/2007 13:47:57
#212743
eu tenho a seguinte constante

Public Const g_sTP_PFJ = ";Jurídica=1;Física=2"

então eu fiz o seguinte if:

If SQLPegaColLng(Rs!TP_PFJ) = TPPFJ_Fisica Then
cmbTP_PFJ.Text = g_sTP_PFJ
Else
cmbTP_PFJ.Text = g_sTP_PFJ
End If

ou seha se o registro TP_PFJ for igual a esse kra TPPFJ_Fisica então ele deve jogar o Física na combo senão o Jurídica. porém não está funcionando pq?
CAIO.IN.DUST 19/04/2007 14:06:20
#212749 Resposta escolhida
Fera! vc pode fazer assim:

Dim g_sTP_PFJ As string

------

    If SQLPegaColLng(Rs!TP_PFJ) = TPPFJ_Fisica Then
      g_sTP_PFJ = "Física"
      cmbTP_PFJ.Text = g_sTP_PFJ
    Else
      g_sTP_PFJ = "Jurídica"
      cmbTP_PFJ.Text = g_sTP_PFJ
    End If


ou


Public Const Fisica = "Física=2"
Public Const Juridica = "Jurídica=1

------

    If SQLPegaColLng(Rs!TP_PFJ) = TPPFJ_Fisica Then
      cmbTP_PFJ.Text = Fisica 
    Else
      cmbTP_PFJ.Text = Juridica 
    End If


Ate mais.
USUARIO.EXCLUIDOS 19/04/2007 14:11:46
#212750
mas, em lugar algum vc esta usando isso g_sTP_PFJ
que variavel é essa TPPFJ_Fisica


If SQLPegaColLng(Rs!TP_PFJ) = 1 Then
g_sTP_PFJ = "FISICA"
cmbTP_PFJ.Text = g_sTP_PFJ
Else
g_sTP_PFJ = "JURIDICA"
cmbTP_PFJ.Text = g_sTP_PFJ
End If
USUARIO.EXCLUIDOS 19/04/2007 15:48:55
#212802
vlw
Tópico encerrado , respostas não são mais permitidas
Voltar