| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1617 人关注过本帖
标题:求解释,谢谢
取消只看楼主 加入收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
结帖率:96%
收藏
已结贴  问题点数:20 回复次数:4 
求解释,谢谢
程序代码:
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 


1、lcClass=space(100)      &&&&&&&&能解释一下其含义吗?
2、电子表格的sheet1名称的宽度能否与班级名称宽度相一致。
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: Student insert into Values select 
2018-04-04 20:52
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 2楼 mywisdom88
你好,谢谢。这100个空格的目的我没搞懂。
2018-04-05 04:10
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 4楼 schtg
类似于 Lst=''
       Lst=Lst+cP
 吗?      
哦,为什么要100个空格呢?有何作用?


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

2018-04-05 07:17
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 7楼 xs591222
谢谢你,涨知识了。
2018-04-05 19:54
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 9楼 wengjl
谢谢你,测试成功了。
2018-04-06 07:48
快速回复:求解释,谢谢
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041063 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved