set defa to e:\bills1\bills1\aar\ thisform.text1.Value='aar' LOCAL lcTableName lcTableName = thisform.text2.value CREATE TABLE (lcTableName) (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>hi,
>set defa to e:\bills1\bills1\aar\ >thisform.text1.Value='aar' >LOCAL lcTableName >lcTableName = thisform.text2.value >CREATE TABLE &lcTableName (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 >>