[求助]自动票号代码的理解
select rkdj1month=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为存放自动票号的文本框. 特别是设置字符精确比较我看的更糊涂了! 谢谢!