求助Q R为什么错了

1. lingo不区分大小写，R、r和Q、q在lingo中是一样的，R和Q已改分别为DR和DQ
2. data和enddata写错
sets:
member/@ole('C:\Users\Administrator\Desktop\投资.xlsx','zc')/:r,x,p,q;
endsets
[obj] max=a*DR-(1-a)*DQ;
@sum(member(i):r(i)*x(i)-p(i)*x(i))=DR;
@max(member(i):x(i)*q(i))=DQ;
@sum(member(i):(1+p(i))*x(i))<m;
data:
r=@ole('C:\Users\Administrator\Desktop\投资.xlsx','shou');
p=@ole('C:\Users\Administrator\Desktop\投资.xlsx','fare');
q=@ole('C:\Users\Administrator\Desktop\投资.xlsx','lost');
a=?;
m=1;
enddata