Get last table number

versión 11 (Modificado)

Get last table number Numérico

Get last table number devuelve el número de tablas en la base. Las tablas están numeradas en el orden en el cual fueron creadas. Si ninguna tabla ha sido borrada de la base, el comando devuelve el número de tablas presentes en la base. En el caso de bucles iterativos sobre los números de tablas de la base, debe utilizar el comando Is table number valid para verificar que la tabla no haya sido borrada.

El siguiente ejemplo inicializa los elementos del array asTablas, con los nombres de las tablas definidos en la base. Este array puede utilizarse como lista desplegable (o pestañas, área de desplazamiento, etc.), para mostrar en un formulario la lista de tablas de la base:

      ARRAY STRING (31;asTablas;Get last table number) 
   If (Get last table number>0)  `Si la Base de datos no tiene tablas
      For ($vlTablas; Size of array(asTablas);1;-1) 
         If(Is table number valid($vlTablas))
            asTablas {$vlTablas}:=Table name ($vlTablas)
         Else
            DELETE FROM ARRAY(asTablas; $vlTablas)
         End if
      End for
   End if

Get last field number, Is table number valid, Table name.