This sample test program scan any table records for empty fields in any type ,
and reports number of record(s) included empty field(s) with number of FIRST empty field.
#include <hmg.ch>
PROC MAIN
SET( _SET_EOF, .F. )
USE TEST
nFldCount := FCOU()
cTestFNam := "empties.txt"
nEmptyRec := 0
SET ALTERNATE TO (cTestFNam)
SET ALTERNATE ON
WHIL ! EOF()
FOR nFld := 1 TO nFldCount
IF EMPTY( FIELDGET( nFld ) )
? RECN(), nFld
++nEmptyRec
EXIT
ENDI
NEXT
SKIP
ENDD
SET ALTE OFF
SET ALTE TO
MsgBox( LTRIM( STR( RECC() ) ) + " records with " +;
LTRIM( STR( nFldCount ) ) + " field(s) scanned ;" +;
CRLF + ;
LTRIM( STR( nEmptyRec ) ) + ;
" records found with empty field." )
EXECUTE FILE "NOTEPAD.EXE" PARAMETERS cTestFNam
RETU
Pingback: How I Can Do … | Viva Clipper !