要求第1条比如1315#弹出窗口要求我自己输入,以后按表总的记录判断,每隔5个记录就帮我加1，如第6条记录为1316#,第11条记录为1317#,直至末尾. 希望有好心的心来帮助我呀,谢谢~!

序号    单号    图号  名称
1    1315#
2    1315#
3    1315#
4    1315#
5    1315#
6    1316#
7    1316#
8    1316#
9    1316#
10    1316#
11    1317#
12    1317#
13    1317#
14    1317#
15    1317#
16    1318#
17    1318#
18    1318#
19    1318#
20    1318#
21    1319#
22    1319#
23    1319#
24    1319#
25    1319#
26    1320#


[ 本帖最后由 jimihy 于 2011-9-7 08:42 编辑 ]

SELECT  Max(单号) FROM 表 INTO array cdh   &&取得最大单号
select 单号 from 表 where 单号=cdh(1) into cursor tmpdh
if recc()<5  &&最大单号少于5
    new_dh=cdh(1)
else
    dh_number=substr(cdh(1),1,len(cdh)-1)
    new_dh=allt(str(val(dh_number)+1))+"#"
endif
*new_dh就是新得到的单号

[ 本帖最后由 scilent 于 2011-9-7 09:43 编辑 ]

假设: 弹出窗口输入值为字符型, 则:

repl all 单号 with padl(int(val(弹出窗口输入值))+ceil(序号/5)-1,4)+"#"

收到的鲜花

• qjbzjp 于 2011-09-07 13:38 送鲜花  20朵   附言：我很赞同

我的意思:我打开 单号.dbf(也可以弹出窗口),然后输入第一条记录比如1315#,然后我关闭此 单号.dbf,然后就生成编号了

我将 repl all 单号 with padl(int(val(弹出窗口输入值))+ceil(序号/5)-1,4)+"#"
改为 repl all 单号 with padl(int(val(1315))+ceil(26/5)-1,4)+"#"
报警下面提示:
函数参数的值、类型或数目无效。

可以了,用了这条命令:repl all 单号 with padl(int(val(弹出窗口输入值))+ceil(序号/5)-1,4)+"#"

第二行的1315本身就是数值，就不要再用VAL()了。

REPLACE ALL 单号 WITH PADL(1314+CEILING(序号/5),4)+[#]