标题:求教:考场编排之后的数据处理(期中考试)
只看楼主
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
结帖率:55.56%
已结贴  问题点数:10 回复次数:18 
求教:考场编排之后的数据处理(期中考试)
[attach]77915[/attach]问题一:考场现已排好,在一个dbf表中,有多个考场,有考场号,教室号,座号字段,考场中的人数不一,有30人的,有32人,有36人的。打印时非常不变,如何通过代码,使得最少人数的考场在后边插入几条记录,与人数最多考场的座号相同。
问题二:若问题一没有解决,则按考场复制出表,在报表中在数据环境中同时添加这些表,使得一次性打印完。
问题三:若问题二没解决,我只能用手工插入空白记录,但一次只能用inse blan插入一条记录,可不可以在指定记录之后同时插入几条空记录。

[ 本帖最后由 cologo 于 2014-11-11 20:51 编辑 ]
搜索更多相关主题的帖子: 期中考试 记录 如何 手工 期中考试 记录 如何 手工 
2014-11-11 19:41
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:2 
传上数据帮你看看

坚守VFP最后的阵地
2014-11-11 19:55
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
我在中学,考试较多,水平又低,请版主帮忙看看。
2014-11-11 20:34
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:2 
看得不太明白。无力帮你
2014-11-11 20:52
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
vfp报表,在数据环境中同时添加多个自由表,怎样一次打印完。
2014-11-11 20:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
程序代码:
Select Max(Kcrs) From W Into Array Ars && 获取考场的最多人数
Select * From W Where .F. Into Cursor Temp ReadWrite
Select Kch,Kcrs From W Group By Kch,Kcrs Into Cursor Temp1
Scan
    Insert Into Temp Select Lyxh,Xm,Kch,Jsh,Zwh,Ars[1] From W Where Kch==Temp1.Kch
    Select Kcrs From W Where Kch==Temp1.Kch Into Array Arsa
    If Ars[1]-Arsa[1]>0
       For lnI=1 To Ars[1]-Arsa[1]
           Insert Into Temp Values ("","",Temp1.Kch,"",Arsa[1]+lnI,Ars[1])
       EndFor 
    EndIf 
EndScan
Select * From Temp Into Cursor 调整
Browse 

看下结果是否是你所需要的

[ 本帖最后由 sdta 于 2014-11-11 21:24 编辑 ]

坚守VFP最后的阵地
2014-11-11 21:23
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
在命令窗口中运行提示“语法错误”
2014-11-11 21:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
代码是VFP9版本

坚守VFP最后的阵地
2014-11-11 21:38
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
我也用9.0
2014-11-11 21:41
cologo
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2014-4-28
得分:0 
你把处理好的表上传我看看
2014-11-11 21:42



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




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

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