RsEdit.Open "select Id_Muestra,F_FECHA_MUESTREO AS DIA,F_HORA_MUESTREO AS HORA," & _
"B_TEMPERATURA AS TEMPERATURA,B_PH AS pH,A_TURBIEDAD AS TURBIDEZ,B_FOSFORO AS FOSFORO," & _
"F_FENOLFTALEINA AS ALC_FENOLFTALEINA,B_ALCALINIDAD AS ALCALINIDAD_TOTAL,B_DUREZA AS DUREZA_TOTAL," & _
"B_CALCIO AS CALCIO,B_MAGNESIO AS MAGNESIO,c_Hierro As HIERRO,c_Manganeso AS MANGANESO," & _
"B_CLORUROS AS CLORUROS,F_PHS AS PH_SATURACIÓN,F_PHI AS INDICE_DE_LANGELIER," & _
"B_CONDUCTIVIDAD AS CONDUCTIVIDAD,B_SOLIDOS_TOTALES AS SÓL_TOT_DISUELTOS,A_COLOR AS COLOR," & _
"c_Aluminio AS ALUMINIO,B_SULFATOS AS SULFATOS,C_NITRATOS AS NITRATOS,C_NITRITOS AS NITRITOS," & _
"A_OLOR AS OLOR,A_SABOR AS SABOR,C_FLUORUROS AS FLUORUROS," & _
"F_ALC_F_VOL_MUESTRA AS Vol_de_Alc_Fenoftaleina, F_T_VOL_MUESTRA AS Vol_de_Alcalinidad_Total," & _
"F_CR_H2SO4 AS Concentración_H2SO4,F_CA_VOL_EDTA AS Calcio_Vol_De_EDTA,F_D_VOL_EDTA AS Dureza_Vol_De_EDTA,F_D_VOL_MUESTRA AS Dureza_Volumen_muestra," & _
"F_CR_EDTA AS Concentración_EDTA,F_NO3_AG_VOL AS Vol_de_AgNO3,F_CL_VOL_MUESTRA AS Volumen_muestra_Cloruros," & _
"F_NO3AG_CT AS Concentración_AgNO3 From ta_ana_fis_qui Where Id_Muestra=" & id, cn, adOpenStatic, adLockOptimistic
'If IColActual = 2 Then
'If CellValue <> "" Then
' RsEdit(2) = CStr(CellValue)
'End If
'End If
Select Case IColActual
' columna 1
'Case 0: RsEdit(0) = CLng(CellValue)
' columna 2
'Case 1: RsEdit(1) = CStr(CellValue)
Case 1: RsEdit(1) = CDate(CellValue)
' columna 3
'Case 2: RsEdit(2) = CStr(CellValue)
' columna 4
Case 3: RsEdit(3) = CDbl(CellValue)
' columna 5
'Case 4: RsEdit(4) = CBool(CellValue)
' columna 6
'Case 5: RsEdit(5) = CDate(CellValue)
End Select
RsEdit.Update
En el codigo que esta de color verde, como puedo saber si ese valor de
la columna 3, sea no nullo para despues convertilo a un numero si no que no haga nada, ¿Como hago eso?, ya que a veces el resultado puede borrarse y debe quedar vacio, cuando borro en el objeto, lo deja con 0, por defecto.
Necesito vuestra ayuda,
saludos y gracias de antemano.
