请教一个默认输入问题
我做了一个表单,其中有一个编号栏。编号是日期加上3个数字组成。我想把编号输入工作弄简单点,也就是说日期部分直接调用上个记录的日期,后3个数字的前2个,也调用上个记录的,光标移到到编号栏的时候,刚好落在这一串数据的末尾,之间敲入一个数字,编号就输入完成。请教各位朋友,怎么实现?
既然是编号,那么就不要重复,以使用自动编号为好。请看如下代码:
该段程序可放在确认增加记录的click事件中
SELECT 表名
SELECT count(*) as co FROM 表名 WHERE left(ALLTRIM(编号),1,8)=allt(dtoc(date())) iNTO TABLE temp
DO CASE
CASE LEN(ALLTRIM(STR(1+temp.co)))=1
AA="00"+ALLTRIM(STR(1+temp2.co))
CASE LEN(ALLTRIM(STR(1+temp.co)))=2
AA="0"+ALLTRIM(STR(1+temp.co))
OTHERWISE
AA=ALLTRIM(STR(1+temp.co))
ENDCASE
thisform.text1.value=allt(dtoc(date()))+ALLTRIM(AA)
thisform.text1.Refresh
SELECT temp
USE
[[it] 本帖最后由 ibmlang_002 于 2008-9-10 12:12 编辑 [/it]]