>*loVariable = loReport.CreateVariable() >*loVariable.cName = 'lnCount' >*loVariable.cValue = 1 >*loVariable.cInitialValue = 0 >*loVariable.cTotalType = 'Sum'>
lparameter tcValue >if vartype(tcValue) <> 'C' > error cnERR_PROPERTY_TYPE_INVALID >else > lcType = upper(left(tcValue, 1)) > if inlist(tcValue, ccTOTAL_NONE, ccTOTAL_COUNT, ccTOTAL_SUM, ; > ccTOTAL_AVERAGE, ccTOTAL_LOWEST, ccTOTAL_HIGHEST, ccTOTAL_STDDEV, ; > ccTOTAL_VARIANCE) > This.cTotalType = tcValue > else > error cnERR_PROPERTY_INVALID ---> The Error in Here > endif inlist(tcValue, ... >endif vartype(tcValue) <> 'C'>