>IF !USED('Schedule') > USE Schedule IN 0 >ELSE > SELECT Schedule >ENDIF >You might use a UDF. Here is mine:
FUNCTION SelectOrOpen(tcTableName, tcOrder, tcAlias, tnBuffering) * Abrir una tabla. Si ya estuviera abierto el alias, simplemente seleccionarlo. * Parámetros: * - tcTableName - la tabla que se quiere abrir * - tcOrder - el index tag que se ha de seleccionar * - tcAlias - con qué alias se quiere abrir la tabla * - tnBuffering - parámetro para buffering; * normalmente igual a 5, 3, u omitido. if empty(tcAlias) tcAlias = tcTableName endif if used(tcAlias) select (tcAlias) else select 0 use (tcTableName) alias (tcAlias) again endif if not empty(tcOrder) set order to (tcOrder) endif if VarType(tnBuffering) = "N" CursorSetProp("Buffering", tnBuffering) endif ENDFUNC && SelectOrOpen