标题:求解释,谢谢
只看楼主
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
结帖率:96%
已结贴  问题点数: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名称的宽度能否与班级名称宽度相一致。
搜索更多相关主题的帖子: Student insert into Values select 
2018-04-04 20:52
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:1 
lcClass=space(100)      &&&&&&&&能解释一下其含义吗?
就是 lcClass = 100个空格
2018-04-04 22:49
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 2楼 mywisdom88
你好,谢谢。这100个空格的目的我没搞懂。
2018-04-05 04:10
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:2 
回复 3楼 杂七杂八
赋给lcClass初始值,也可以改为同类型的其它初始值。
2018-04-05 06:33
杂七杂八
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
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:2 
以下是引用杂七杂八在2018-4-5 07:17:48的发言:

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

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

活到老,学到老! http://www. E-mail:hu-jj@
2018-04-05 09:08
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:5 
赋其他的字符有可能与班级的值一致(极小概率)。赋了空格,将lcClass变量限定为字符型变量了。
2018-04-05 18:29
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 7楼 xs591222
谢谢你,涨知识了。
2018-04-05 19:54
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:108
帖 子:2175
专家分:3785
注 册: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
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
得分:0 
回复 9楼 wengjl
谢谢你,测试成功了。
2018-04-06 07:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-485769-1-1.html




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

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