Daily Archives: March 13, 2015

How I can find empty fields in my table ?

Posted on by vivaclipper

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