FoxPro/Visual FoxPro - ayuda porfavor

hola que tal tengo un problema con mis botones en visual fox 6.0

tengo un comb que tiene varias tablas , al seleccionar una me la refleja en mi grid
y este al garle clic a un producyo me lo refjeja en mis cuadros de texto

tengo mi boton modificar el cual debo meter todas las tablas pero ahorita solo hice el codigo con dos tablas
el problema es que la primer tabla que se llama tubocobretl me modifica y me guarda , pero en la segunda tabla a la hora de dar clic en modificar me borra lo quier tengo en mi grid la primera fila y ya no me hace nada
ç
q que se debe ese error
tendre mal mi codigo
espero me puedan ayudar
se los agradeceria

este es mi codigo solo con dos tablas
tablita=thisform.Combo1.value
do case
case tablita="tubocobretl"
if thisform.command4.caption="modificar"
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.Text1.enabled=.t.
thisform.Text2.enabled=.t.
thisform.Text3.enabled=.t.
thisform.Text4.enabled=.t.
thisform.command4.caption="guardar"
else
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.Text1.enabled=.f.
thisform.Text2.enabled=.f.
thisform.Text3.enabled=.f.
thisform.Text4.enabled=.f.
thisform.command4.caption="modificar"
replace "tubocobretl.nombre" with thisform.text1.value, "tubocobretl.medida" with thisform.text2.value, "tubocobretl.preciotubo" with thisform.text3.value, "tubocobretl.preciometro" with thisform.text4.value
thisform.Grid1.refresh
endif
ENDCASE

tablita=thisform.Combo1.value
do case
case tablita="tubocobretm"
if thisform.command4.caption="modificar"
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.Text1.enabled=.t.
thisform.Text2.enabled=.t.
thisform.Text3.enabled=.t.
thisform.Text4.enabled=.t.
thisform.command4.caption="guardar"
else
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.Text1.enabled=.f.
thisform.Text2.enabled=.f.
thisform.Text3.enabled=.f.
thisform.Text4.enabled=.f.
thisform.command4.caption="modificar"
replace "tubocobretm.nombre" with thisform.text1.value, "tubocobretm.medida" with thisform.text2.value, "tubocobretm.preciotubo" with thisform.text3.value, "tubocobretm.preciometro" with thisform.text4.value
thisform.Grid1.refresh
endif
endcase

tengo otra duda en mi boton de eliminar me marca un error de abrir en modo exclusivo

entonces me voy a el entorno de datos y le doy modo exclusive en true

y a la hora de ejecutar me dice el archivo esta abierto desde otra area de trabajo
a que se debe este error

Desicion=Messagebox("el registro se eliminara permanentemente,esta seguro?",4+16+256,"elimine registro")
if Desicion=6
delete
pack
thisform.refresh
endif

En el segundo caso para ejecutar el comando PACK debes de tener la tabla abierta exclusiva. Este de por si es un comando peligroso, yo prefiero no tenerlo dentro del sistema.

Pilar tengo algunos form de sistemas que tengo amano
veo desde hace dias que estás aproblemada con este asunto
si necesitas algo de ejemplo te los envio .