CONSULTA A EXPERTOS
Publicado por SEDRUOL (8 intervenciones) el 04/05/2004 14:22:39
A VER SI ALGUIEN ME PUEDE INDICAR EN UN CRYSTALREPORT COMO TRATAR LOS VALORES NULOS PARA HACER UNA SELECCION SEGUN INDICO A CONTINUACION :
SQL = "{DIRMAILING.LLAMADA} > 0"
SQL = SQL & " AND {DIRMAILING.DIREC} > 1"
SQL = SQL & " AND {DIRMAILING.MAILING} = " & CLng(frmMailings.Tabla.Text) & ""
AQUI ES DONDE ME DA ERROR, LO QUE ESTA APARCADO.
' SQL = SQL & " AND {DIRMAILING.POD_N} = " & "Null" & ""
' SQL = SQL & " AND {DIRMAILING.FIRMA} = 'Null'"
' SQL = SQL & " AND {DIRMAILING.FCHPOD} = 'Null'"
If Val(TEXTOS(0).Text) > 0 Then
SQL = SQL & " And {DIRMAILING.NUMCLI} >= " & CLng(TEXTOS(0).Text) & ""
End If
If Val(TEXTOS(1).Text) > 0 Then
SQL = SQL & " And {DIRMAILING.NUMCLI} <= " & CLng(TEXTOS(1).Text) & ""
End If
If Mask(0).Text <> "" Then
SQL = SQL & " And {DIRMAILING.FCHLLAMADA} >= Date(" & Format(Mask(0).Text, "yyyy,mm,dd") & ") "
End If
SQL = "{DIRMAILING.LLAMADA} > 0"
SQL = SQL & " AND {DIRMAILING.DIREC} > 1"
SQL = SQL & " AND {DIRMAILING.MAILING} = " & CLng(frmMailings.Tabla.Text) & ""
AQUI ES DONDE ME DA ERROR, LO QUE ESTA APARCADO.
' SQL = SQL & " AND {DIRMAILING.POD_N} = " & "Null" & ""
' SQL = SQL & " AND {DIRMAILING.FIRMA} = 'Null'"
' SQL = SQL & " AND {DIRMAILING.FCHPOD} = 'Null'"
If Val(TEXTOS(0).Text) > 0 Then
SQL = SQL & " And {DIRMAILING.NUMCLI} >= " & CLng(TEXTOS(0).Text) & ""
End If
If Val(TEXTOS(1).Text) > 0 Then
SQL = SQL & " And {DIRMAILING.NUMCLI} <= " & CLng(TEXTOS(1).Text) & ""
End If
If Mask(0).Text <> "" Then
SQL = SQL & " And {DIRMAILING.FCHLLAMADA} >= Date(" & Format(Mask(0).Text, "yyyy,mm,dd") & ") "
End If
Valora esta pregunta


0