hi,
thank you for reply.
What is your question? i need to run this code under for many tables for one many new table as answers1.dbf ,answers2.dbf to answers..dbf

not for one table only.

lcText4Table = ALLTRIM(thisform.text41.value)
lcText4Table = session-nu1.dbf,session-nu2.dbf....to session-nu(number).dbf

CLOSE all

#Define ANSWERCOUNT 20
#Define QUESTIONCOUNT 3
Local array aStruc[(ANSWERCOUNT+1)*2,4]
Local ix,lnPair
aStruc = 0
aStruc[1,1] = 'Question'
aStruc[1,2] = 'C'
aStruc[1,3] = 5

For lnPair=1 To ANSWERCOUNT
      aStruc[m.lnPair*2,1] = 'CountOf'+Ltrim(Str(m.lnPair))
      aStruc[m.lnPair*2,2] = 'I'
      aStruc[m.lnPair*2,3] = 4

      aStruc[m.lnPair*2+1,1] = 'PctOf'+Ltrim(Str(m.lnPair))
      aStruc[m.lnPair*2+1,2] = 'B'
      aStruc[m.lnPair*2+1,3] = 8
      aStruc[m.lnPair*2+1,4] = 2
Endfor

aStruc[(ANSWERCOUNT+1)*2,1] = 'Total' 
aStruc[(ANSWERCOUNT+1)*2,2] = 'I'
 aStruc[(ANSWERCOUNT+1)*2,3] = 4



Create table answers From Array aStruc
lcText4Table =  ALLTRIM(thisform.text41.value)***

lcText4Alias = "Questions"

IF NOT USED(lcText4Alias)
   SELECT 0
   USE (lcText4Table) ALIAS Questions
   SET FILTER TO session_nu=1
ENDIF

For ix=1 To FCOUNT(lcText4Alias) 

    IF UPPER(LEFT(FIELDS(ix,lcText4Alias),1)) == "Q" 
       thisform.GetCounts(m.ix,lcText4Alias+'.'+FIELDS(ix))
    ENDIF
ENDFOR
Select answers

*************************************8
cSelect = "SELECT [sum] AS Question"
FOR cFlds = 2 TO FCOUNT("Answers")
    cFldName = FIELDS(cFlds)
    IF UPPER(LEFT(cFldName,7)) == "COUNTOF"
      cSelect = cSelect + [,] + " SUM("+FIELDS(cFlds)+") AS "+FIELDS(cFlds)
    ELSE
      cSelect = cSelect + [,] + " 0 AS "+FIELDS(cFlds)
    ENDIF
NEXT
cSelect = cSelect + " FROM Answers INTO ARRAY sumAnswers"

&cSelect


SUM CountOf1 TO nTest

INSERT INTO Answers FROM ARRAY sumAnswers


 GO BOTTOM
  MessageBox("Count Of Answer1 before Insert "+TRANSFORM(nTest)+CHR(13)+CHR(10)+;
"Count Of Answer1 after    Insert "+TRANSFORM(CountOf1))

GO TOP
Select answers

thanks
>
>>1.i import excel sheet to vfp.dbf ,
>>every fields have name begin with Q is a characters type,
>>to run this code under, i must convert all fields to numbers type,
>>is ther a way to run this code if fields at my table is characters or numbers,
>>
>>2.at the same table i have a field (session_number) from 1 to 10,
>>i need to run this code for every session aloan and save it as new table as session1.dbf ,session2.dbf to.....session10.dbf
>>
>>3.i need to convert all tables from session1.dbf to session10.dbf to excel sheet.
><snip>