hi Mohammed

thisform.text2.value="nan"&& name of mytable
i have field with flage as 1,2....at "nan"
when i run the code under i append the data from thisform.text1.value
to thisform.text2.value(nan),i want to keep the field with flge ,when i run the code under.


The field flage doesn't "leave" because the append command, but because you are creating every time a table "nan" without the field flage. So add to your code when creating the "nan" table a numeric field as : flage N(10,0) for example. See below:

set defa to e:\bills1\bills1 or ThisForm.Text1.Value = "e:\bills1\bills1\aar.xls"
thisform.text1.Value='aar'
LOCAL lcTableName
lcTableName = thisform.text2.value
CREATE TABLE (lcTableName) (flage N(10,0),a C(50), b C(70),c C(50), d C(50),e C(70), f C(70),s C(70), l C(70),char9 c(70), char10 c(40),;
char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10),;
char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
lcTableName = thisform.text1.value
APPEND FROM (lcTableName) TYPE XLS
*** USE (thisform.text2.value) exclusive ALIAS SomeAlias && Not necessary, this table is already selected
GO TOP
DELETE NEXT 6