以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  求按单位自动填充序号的公式  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=19090)

--  作者:懂你
--  发布时间:2010/3/5 9:20:00
--  求按单位自动填充序号的公式
如题:效果如文件,想求根据不同的单位内人员,同一单位的人员自动填充序号公式,谢谢高手们!egd文件下载
--  作者:smileboy
--  发布时间:2010/3/5 13:24:00
--  
CountFor(GridName,"单位", "=" ,[单位],1,Row)
--  作者:懂你
--  发布时间:2010/3/5 20:17:00
--  
下面引用由smileboy2010/03/05 01:24pm 发表的内容:
CountFor(GridName,"单位", "=" ,,1,Row)

该公式对几十行数据是可行的,我放在近万行数据里,文件出现了“没有响应”。不知有更好的解决办法否?

--  作者:wjq1072
--  发布时间:2010/3/6 14:33:00
--  
用按钮试试?
egd文件下载
--  作者:懂你
--  发布时间:2010/3/6 15:16:00
--  
不错,可惜改变了录入顺序。要以不改变录入顺序就更好了。
但我还是要谢谢!

--  作者:wjq1072
--  发布时间:2010/3/6 16:31:00
--  
AddCol(GridName,"k",1, False ) And EvalFor(GridName,"k","Row") And SortCol(GridName,"单位",1) And EvalFor(GridName,"序号","If(Cell(Row-1,""单位"") <> Cell(Row,""单位""),1,Number(Cell(Row-1,""序号""))+1)") And SortCol(GridName,"k",1) And DeleteCol(GridName,"k")