| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛

```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.visible=.t.

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

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 ```

1、lcClass=space(100)      &&&&&&&&能解释一下其含义吗？
2、电子表格的sheet1名称的宽度能否与班级名称宽度相一致。

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

Lst=Lst+cP
吗?

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

Lst=Lst+cP
吗?

100个空格是程序作者的喜好，你将他改为10个空格作用也是一样的，都是为lcClass变量赋字符型的初值，不影响程序的执行。

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.visible=.t.
do while o.workbooks(1).worksheets.count<lnSheets
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

1、lcClass=space(100)      &&&&&&&&能解释一下其含义吗？
2、电子表格的sheet1名称的宽度能否与班级名称宽度相一致。

• 10
• 1/1页
• 1