nbzon permet de connaître le nombre de champs d'une table ouverte.
# Affichage des caractéristiques de la table BPCUSTOMER
File BPCUSTOMER [BPC]
Infbox "Il y a "-num$([G:CLI]nbzon)-" champs dans la table CLIENT :"
For I = 0 To [G:BPC]nbzon - 1
Infbox [G:BPC]adxfname(I)
Next I
Infbox "Il y a "-num$([G:BPC]nbind)-"index dans la table CLIENT :"
For I = 0 To [G:BPC]nbind - 1
Infbox [G:BPC]keyname(I)
Case [G:BPC]keyuniq(I)
When 0 : Infbox " (Avec Homonymes) "
When 1 : Infbox " (Sans Homonymes) "
When 2 : Infbox " (Nombreux Homonymes) "
Endcase
Infbox "Longueur = "-num$([G:BPC]keylen(I))
Next I
Infbox "Taille totale enregistrement = "-num$([G:BPC]tairec)