FoxPro/Visual FoxPro - RUTINA PARA ACTUALIZAR ESTRUCTURA DE TABLAS

HOLA A TODOS!!!
QUISIERA SABER SI EXISTE ALGUN METODO EN EL CUAL SE PUEDA DESDE UN PROCEDIMIENTO O UNA FUNCION ACTAULIZAR LAS ESTRUCTURAS DE LAS TABLAS SIN TENER QUE UTILIZAR MANUALMENTE EL MODIFY STRUCTURE,,,, GRACIAS POR SU VALORABLE AYUDA....

yo lo hago asi:

use MIDBF
tcampos = AFIELDS(DBMOV)
use
*-- aca adiciono un mas
tcampos = tcampos + 1
DIMENSION DBMOV[tcampos,4]
DBMOV[tcampos,1] = 'NVOCAMPO'
DBMOV[tcampos,2] = 'C'
DBMOV[tcampos,3] = 10
DBMOV[tcampos,4] = 0
*--
** puedes incrementar los campos que quieras. ojo con la var tcampos tienes que incrementarla...

sele 0
CREATE CURSOR TEMPDBF FROM ARRAY DBMOV
append from MIDBF.DBF
* si quieres puedes hace un scan ó while
erase MIDBF.DBF
sele tempdbf
copy to MIDBF.DBF

*eso es todo amigo

Mi estimado Jairo:

La solucion de Cesarz es viable, pero te recomiendo que si vas a utilizar esta actualizacion constantemente y va a formar parte de tu aplicacion, creo que es mejor que incluyas una rutina de actualizacion utilizando los comandos ALTER TABLE <Nombre> ADD, DROP...

Es mas viable que la manejes asi dinamicamente, condicionando la respuesta de la rutina bajo las condiciones pertinentes y de acuerdo a tus necesidades.

Espero que te sea de utilidad este tip y te deseo exito en tus proyectos,

Saludos
Atte.
Alberto Sanchez Sarabia
Consultor de Sistemas