程序代码：

create cursor Student (班级 C(10),学号 C(8),姓名 C(8),性别 C(2))

 insert into Student Values ('经济04-1','B0401001','张三','男')
insert into Student Values ('经济04-1','B0401002','李四','男')
insert into Student Values ('经济04-2','B0401003','王五','男')
insert into Student Values ('经济04-2','B0401004','赵六','男')
insert into Student Values ('经济04-3','B0401005','孙启','男')
insert into Student Values ('经济04-3','B0401006','周把','男')
insert into Student Values ('经济05-1','B0501001','乌桕','男')
insert into Student Values ('经济05-1','B0501002','手动','男')
insert into Student Values ('经济05-1','B0501003','风格','男')
insert into Student Values ('经济06-1','B0601001','规划','男')
insert into Student Values ('经济06-1','B0601002','沟通','男')
select * from student order by 1 into cursor st

 select count(*) as amount from student group by 班级 into cursor st1

 select st1

 lnSheets=reccount('st1')

 o=NewObject('Excel.Application')

 o.workbooks.add

 o.visible=.t.

 do while o.workbooks(1).worksheets.count<lnSheets
   o.workbooks(1).worksheets.add

 enddo

 select st

 lcClass=space(100)      &&&&&&&&能解释一下其含义吗？

 lnCnt=0

 lnRow=1

 scan
   if lcClass#班级
    lnCnt=lnCnt+1
     lnRow=1
     lcClass=班级
    o.workbooks(1).worksheets(lnCnt).name=lcClass
   endif
   o.workbooks(1).worksheets(lnCnt).cells(lnRow,1).value=班级
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,2).value=学号
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,3).value=姓名
  o.workbooks(1).worksheets(lnCnt).cells(lnRow,4).value=性别
  lnRow=lnRow+1

 endscan 

[此贴子已经被作者于2018-4-5 07:50编辑过]