If left(Upper(gaMyArray(nCount,1)),1)='Q' and gaMyArray(nCount,2)='C'>HI,
>If Upper(gaMyArray(nCount,1))='Q' and gaMyArray(nCount,2)='C' >>thanks
>>>>Use dnc Exclusive >>>>gnFieldcount = AFIELDS(gaMyArray) >>>>For nCount = 1 To gnFieldcount >>>> If Upper(gaMyArray(nCount,1))='Q' and gaMyArray(nCount,2)='C' >>>> Wait "Converting "+gaMyArray(nCount,1) WINDOW nowait >>>> Alter table dnc alter column (gaMyArray(nCount,1)) n(10,2) >>>> EndIf >>>>EndFor >>>>Wait clear>>>>
>>>>>USE dnc >>>>> >>>>>gnFieldcount = AFIELDS(gaMyArray) >>>>>CLEAR >>>>>FOR nCount = 1 TO gnFieldcount >>>>> ? gaMyArray(nCount,1) >>>>> alter(all field begin with Q to numaric type)&&& what kind of code i must write to do it? >>>>>ENDFOR >>>>>>>>>>thanks all the time
>>>>>>*Read the Excel file into the cursor curtemp && Change the code you already use >>>>>>Create table yourtable ... && With the structure you want >>>>>>Append from dbf('curtemp')>>>>>>Another approach is to use Afield() on the table, and then use Alter Table on each field which has a name beginning with q and whick is of type character.