>>IF LEFT(GetFldState(-1),1) == [3] AND ; >> NOT [4] $ SUBSTR(GetFldState(-1),2) >> ** Nothing changed in this record >>ENDIF >>>
IF LEFT(GetFldState(-1),1) == [3] AND ; NOT [4] $ SUBSTR(GetFldState(-1),2) ** Nothing changed in this record ELSE LOCAL lcFldStatStr, lcDefault, lnbFieldNo, lbSomethigIsChanged lcFldStatStr = SUBSTR(GetFldState(-1),2) lnbFieldNo = 1 DO WHILE NOT EMPTY(lcFldStatStr) IF LEFT(lcFldStatStr,1) == [4] IF DBGETPROP(FIELD(lnbFieldNo),[DefaultValue]) # TRANSFORM(EVAL(FIELD(lnbFieldNo))) lbSomethigIsChanged = .t. EXIT ENDIF ENDIF lcFldStatStr = SUBSTR(llcFldStatStr,2) ENDDO IF lbSomethigIsChanged ** Somethig is changed for this field ENDIF ENDIFSomething like that, but not tested.