| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 624 人关注过本帖
标题:[求助]自动票号代码的理解
只看楼主 加入收藏
wuyuqingzhu
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2006-5-24
收藏
 问题点数:0 回复次数:4 
[求助]自动票号代码的理解
select rkdj
1month=padl(alltrim(str(month(date()),2)),2,'0')
1day=padl(alltrim(str(day(date()),2)),2,'0')
if empty(入库票号)
set cent on &&设置字符精确比较
thisform.text2.value=alltrim(str(year(date()),4)+'-'+1month+'-'+1day+'rkd0001')
else
*查找表中的最大入库票号存入数组
select max(入库票号) from rkdj into array a
cend=val(substr(a(1),14))+1
thisform.text2.value=alltrim(str(year(date()),4)+'-'+1month+'-'+1day-y'rkd'+padl(alltrim(srt(cend,4)),4,'0'))
endif

*请各位说说这段代是什么意思啊?我怎么看不懂1month和1day的意思!看的我都晕了! 着是一个自动票号的代码,设text2为存放自动票号的文本框. 特别是设置字符精确比较我看的更糊涂了! 谢谢!


搜索更多相关主题的帖子: 票号 代码 自动 
2006-07-14 09:14
wuyuqingzhu
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2006-5-24
收藏
得分:0 
我晕了!现在怎么改成这样了?#24 发个帖子要浪费这么大劲,改了好几个标题!其实是我根本就不理解着段代码! 真是的! 搞什么不好! 非要写的那么明确,我知道怎么写啊??? 问题多多!
2006-07-14 09:15
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
1month=padl(alltrim(str(month(date()),2)),2,'0')&& 把当前日期的“月份”作为字符串赋与1month,长度为2,不足2位的以“0”填充。
1day=padl(alltrim(str(day(date()),2)),2,'0')就不用说了吧?
“set cent on &&设置字符精确比较”这一句注释是错误的,你可以看看关于set cent on|off 的说明。

[此贴子已经被作者于2006-7-14 13:07:46编辑过]


两人行已有我师……
2006-07-14 13:05
wuyuqingzhu
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2006-5-24
收藏
得分:0 
谢谢萧凡!! 多谢了
2006-07-17 08:02
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
不用客气!如果您真想谢我的话,多看帮助文件就是对我最好的感谢。呵呵!

两人行已有我师……
2006-07-17 08:57
快速回复:[求助]自动票号代码的理解
数据加载中...
 
   



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

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