请问VFP中下面这个程序该怎么翻译呢?
s=""
f=.T.
***FOUND***
FORi=1TOthisform.List1.Count
IFthisform.List1.Selected(i)
IFf
***FOUND***
s=thisform.List1.list(i)
f=.F.
ELSE
***FOUND***
s=s+thisform.List1.list(i)
ENDIF
ENDIF
ENDFOR
st="select&sfromordersintocursortmp"
thisform.Grid1.RecordSource=st
邮箱: 联系方式: