Programmatically Check Table Properties

File: ...\Samples\Vfp98\Solution\Db\Info.scx

This sample illustrates getting information about a table at run time.

Field Information

The AFIELDS( ) function provides most of the information about table fields displayed in this sample. In addition to the information displayed in this sample, AFIELDS( ) provides information about field and table validation expressions and messages, trigger expressions and messages, as well as long table names and table comments in the database.

Index Information

The TAG( ) and KEY( ) functions provide index information.

lo = THISFORM.edtProperties
FOR i = 1 TO 254
   IF !EMPTY(TAG(i))  && Checks for tags in the index
      lo.Value = lo.Value + TAG(i) + "  " + KEY(i)
   ELSE
      EXIT 
   ENDIF
ENDFOR