thank you very much, it works
>

>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
>>>