| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 401 人关注过本帖
标题:求助,考场标志打印问题。
只看楼主 加入收藏
dwzx001
Rank: 1
等 级:新手上路
帖 子:29
专家分:2
注 册:2017-6-26
结帖率:83.33%
收藏
已结贴  问题点数:20 回复次数:7 
求助,考场标志打印问题。
做的报表有两个不明白的地方,附样表一张,求助各位专家。
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 报表 打印 标志 专家 
2020-03-06 16:43
xuminxz
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:17
帖 子:428
专家分:1280
注 册:2011-5-8
收藏
得分: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


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

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

附件: 您没有浏览附件的权限,请 登录注册

dBase有人接盘了。
2020-03-06 19:54
瓜瓜1990
Rank: 4
等 级:业余侠客
威 望:2
帖 子:46
专家分:215
注 册:2020-2-25
收藏
得分: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    


考场列表标签用一个函数,上面是函数代码


附件: 您没有浏览附件的权限,请 登录注册
2020-03-06 21:21
xuminxz
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:17
帖 子:428
专家分:1280
注 册:2011-5-8
收藏
得分:6 
他要打印的似乎是门贴

dBase有人接盘了。
2020-03-06 21:26
dwzx001
Rank: 1
等 级:新手上路
帖 子:29
专家分:2
注 册:2017-6-26
收藏
得分:0 
回复 2楼 xuminxz

怎么提示找不到变量呀,接触VF不久,请再次指点,谢谢。
附件: 您没有浏览附件的权限,请 登录注册
2020-03-09 08:17
dwzx001
Rank: 1
等 级:新手上路
帖 子:29
专家分:2
注 册:2017-6-26
收藏
得分:0 
回复 3楼 瓜瓜1990
考场标志贴在考场门口的,每个考场一张,请再次指点下,谢谢。
2020-03-09 08:18
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:215
帖 子:8060
专家分:20456
注 册:2012-2-5
收藏
得分:4 
FOR j=bg TO ed[local]1[/local]
[local]不是代码的部分
试试
FOR j=bg TO ed step 1

坚守VFP最后的阵地
2020-03-09 08:47
dwzx001
Rank: 1
等 级:新手上路
帖 子:29
专家分:2
注 册:2017-6-26
收藏
得分:0 
回复 7楼 sdta
问题解决了,谢谢.
2020-03-09 09:16
快速回复:求助,考场标志打印问题。
数据加载中...
 
   



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

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