| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 306 人关注过本帖
标题:求解释,谢谢
只看楼主 收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
结帖率:100%
  已结贴   问题点数:20  回复次数:9   
求解释,谢谢
程序代码:
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名称的宽度能否与班级名称宽度相一致。
附件: 您没有浏览附件的权限,请 登录注册
2018-04-04 20:52
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:78
帖 子:2490
专家分:6038
注 册:2015-3-25
  得分:1 
lcClass=space(100)      &&&&&&&&能解释一下其含义吗?
就是 lcClass = 100个空格
2018-04-04 22:49
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 2楼 mywisdom88
你好,谢谢。这100个空格的目的我没搞懂。
2018-04-05 04:10
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:438
专家分:602
注 册:2012-2-29
  得分:2 
回复 3楼 杂七杂八
赋给lcClass初始值,也可以改为同类型的其它初始值。
2018-04-05 06:33
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 4楼 schtg
类似于 Lst=''
       Lst=Lst+cP
 吗?      
哦,为什么要100个空格呢?有何作用?


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

2018-04-05 07:17
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:338
帖 子:11247
专家分:42283
注 册:2006-5-13
  得分:2 
以下是引用杂七杂八在2018-4-5 07:17:48的发言:

类似于 Lst=''
       Lst=Lst+cP
 吗?      
哦,为什么要100个空格呢?有何作用?

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

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2018-04-05 09:08
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:18
帖 子:582
专家分:1120
注 册:2009-3-1
  得分:5 
赋其他的字符有可能与班级的值一致(极小概率)。赋了空格,将lcClass变量限定为字符型变量了。
2018-04-05 18:29
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 7楼 xs591222
谢谢你,涨知识了。
2018-04-05 19:54
wengjl
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:57
帖 子:1319
专家分:2493
注 册:2007-4-27
  得分:10 
以下是引用杂七杂八在2018-4-4 20:52:15的发言:

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名称的宽度能否与班级名称宽度相一致。


要宽度一致,就在红字那句命名中,加上ALLT()吧

只求每天有一丁点儿的进步就可以了
2018-04-06 07:30
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 9楼 wengjl
谢谢你,测试成功了。
2018-04-06 07:48







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

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