thisform.text1.value=getfile("dbf")
cTable=alltrim(thisform.text1.Value)
If Empty(cTable)
  return
endif
if used('tmp1')
   use in tmp1
endif
Use (cTable) in 0 again alias tmp1
If Type('tmp1.ccc')<>'U'
  Alter Table tmp1 Drop Column ccc
Endif
use in tmp1

>thank you both but.
>i get error message Alias name is already in use
>

>thisform.text1.value=getfile("dbf")
> thisform.text1.value=JUSTSTEM(thisform.text1.Value)
>
>cTable=alltrim(thisform.text1.Value)
>Use (cTable) in 0 again alias tmp1
>If Type('tmp1.ccc')<>'U'
>  Alter Table tmp1 Drop Column ccc
>Endif
>use in tmp1
>

>>>hi,
>>>thank you very much, it works... but i need to use thisform.text1.value instead of mytable..
>>>

>>>USE atable22 excl&& it works
>>>If type('atable22.ccc')<>'U'
>>>  alter table atable22 drop column ccc
>>>   brow
>>>ENDIF
>>>******************************
>>>USE JUSTSTEM(thisform.text1.Value) excl&&& not works
>>>If type('thisform.text1.Value.ccc')<>'U'
>>>   alter table (thisform.text1.Value) drop column ccc
>>>   brow
>>>endif
>>>

>>
>>

>>cTable=alltrim(thisform.text1.Value)
>>Use (cTable) in 0 again alias tmp1
>>If Type('tmp1.ccc')<>'U'
>>  Alter Table tmp1 Drop Column ccc
>>Endif
>>Use in tmp1
>>