Dear Naomi,
First thank you fo your help, I think the problem is in my table and not in the code if you look at the table structure
if it does not work it's ok I will have to look at another solution
Thank you again

fields type
studentid character(10)
subject character(20)
mark character(10)
and the code is like this latest



select distinct strtran(subject," ","_") as Subject from report
local lcSubjects, lnCount
lcSubjects = ""
select c_UniqueSubjects
lnCount = 0
scan
lcSubjects = "," + Subject + "I"
endscan

************************************************************************************************

create cursor c_FinalResult (iID_a I, cStudentName C(40) &lcSubjects)
index on iID_a tag iID_a
local lcField as String
select Report
set order to id_a
scan
if not seek(ID_a, 'c_FinalResult')
insert into c_FinalResult (iID_a, cStudentName) values (Report.ID_a, Report.Name)
endif
lcField = strtran(alltrim(Report.subject)," ","_")
replace (lcField) with Report.Mark in c_FinalResult
endscan