If left(Upper(gaMyArray(nCount,1)),1)='Q' and gaMyArray(nCount,2)='C'>My code will work with SET EXACT OFF. Another solution, which is independent of EXACT:
>If left(Upper(gaMyArray(nCount,1)),1)='Q' and gaMyArray(nCount,2)='C' >>
>>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.