以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  求助合并表的序号连续问题  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18605)

--  作者:王峰
--  发布时间:2009/11/27 21:57:00
--  求助合并表的序号连续问题
在下列中按“业务归档”怎样实现以下功能
1,将表1的全部记录剪切,并拷贝到表2里,
2,表1的序号将从表2的最后一条记录开始自动生成egd文件下载
--  作者:smileboy
--  发布时间:2009/11/27 22:13:00
--  
CopyRows("表2") And ClearGrid(GridName) And SetCellText(GridName,1,"序号",number(MaxFor("表2","序号"))+1)
--  作者:王峰
--  发布时间:2009/11/27 22:20:00
--  
先谢后看
--  作者:王峰
--  发布时间:2009/11/27 22:31:00
--  
第二个问题没有解决
2,表1的序号将从表2的最后一条记录开始自动生成
如果用 Format(Row,"000")将从1号,怎样每次存档后
表1的序号从表2的最末号开始自动产生呢
--  作者:程兴刚
--  发布时间:2009/11/28 8:32:00
--  
表2序号列刷新公式:

if(row=1,format([表1!Rows],"000"),eval("format("+eval("number("+cell(row-1,col)+")")+",""000"")"))


--  作者:wjq1072
--  发布时间:2009/11/28 9:41:00
--  
EvalFor("表1","序号","Row+[表2!Rows]") And CopyRows("表2") And ClearGrid("表1")
--  作者:王峰
--  发布时间:2009/11/28 14:44:00
--  
好像没把问题说清楚

2,表1的序号将从表2的最后一条记录开始自动生成

应是,归档以后表1从新开始录入数据时记录的序号应从归档以前的记录号开始顺延制动产生


--  作者:程兴刚
--  发布时间:2009/11/28 14:47:00
--  
反过来不就可以了:

表1序号列刷新公式:

if(row=1,format([表2!Rows],"000"),eval("format("+eval("number("+cell(row-1,col)+")")+",""000"")"))


--  作者:王峰
--  发布时间:2009/11/28 15:35:00
--  
只产生一行第二行开始就不产生了
--  作者:程兴刚
--  发布时间:2009/11/28 16:03:00
--  
函数嵌套引起后面一段不能执行,format()函数敏感性比较高,况且原公式也有点小问题,表1首行等于了表2末行是不对的,应该加1,改成这样:

if(row=1,format([表2!Rows]+1,"000"),right("000"+text(eval("number("+cell(row-1,col)+")+1")),3))