求助，考场标志打印问题。 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助，考场标志打印问题。

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2115 人关注过本帖

标题：求助，考场标志打印问题。

只看楼主加入收藏

dwzx001

等　级：新手上路
帖　子：30
专家分：2
注　册：2017-6-26
结帖率：83.33%

楼主

已结贴√ 问题点数：20 回复次数：7

求助，考场标志打印问题。

做的报表有两个不明白的地方，附样表一张，求助各位专家。

考场标志打印.rar (33.23 KB)

搜索更多相关主题的帖子: 报表　打印　标志　专家　

2020-03-06 16:43

xuminxz

等　级：贵宾
威　望：41
帖　子：766
专家分：2517
注　册：2011-5-8

第 2 楼

得分:0

程序代码：

PUBLIC _ksmc
SET SAFETY OFF
CLOSE TABLES all
SELECT 考点代码,考点名称,课程代码,课程名称,科次,考试时间,SPACE(3) 考场 FROM t_kcap INTO CURSOR kctmp WHERE 1=2 READWRITE 
irecc=RECCOUNT('t_kcap')
DIMENSION kcar(7)
FOR i=1 TO irecc
    SELECT t_kcap
    GO i
    copy to array kcar FIELDS 考点代码,考点名称,课程代码,课程名称,科次,考试时间 RECORD i
    bg=round(VAL(开始),0)
    ed=round(VAL(结束),0)
    FOR j=bg TO ed[local]1[/local]
        kcar[7]=PADL(j,3,'0')
        SELECT kctmp
        APPEND FROM ARRAY kcar  FIELDS 考点代码,考点名称,课程代码,课程名称,科次,考试时间,考场
    ENDFOR
ENDFOR
_ksmc=STR(YEAR(DATE()),4)+'年'+IIF(MONTH(DATE())<7,'上','下')+'半年教师资格考试（笔试）'
SELECT kctmp
REPORT FORM  t_kcap  TO PRINTER PROMPT PREVIEW

报表.rar (2.05 KB)

报表中页标题用_ksmc,类型改为字符，删除数据环境。

[此贴子已经被作者于2020-3-6 19:56编辑过]

dBase有人接盘了。

2020-03-06 19:54

瓜瓜1990

等　级：贵宾
威　望：18
帖　子：125
专家分：699
注　册：2020-2-25

第 3 楼

得分:10

程序代码：

PARAMETERS cStart,cEnd
LOCAL kclist,i
KcList=''
FOR i=INT(VAL(cStart)) TO INT(VAL(cEnd))
    KcList=KcList+PADL(i,3,"0")+SPACE(2)
ENDFOR
RETURN Kclist