以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  一个比较特别的自动排序问题  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=16346)

--  作者:qctv
--  发布时间:2009/2/19 17:02:00
--  一个比较特别的自动排序问题
egd文件下载
要求添加一条记录时,能自动修改类别编号,如:添加“书桌”类别A1-3后,所有产品类别依次自动修改为A1-4,A1-5,A1-6直到A1-9,并排序
--  作者:wjq1072
--  发布时间:2009/2/19 17:15:00
--  
egd文件下载
--  作者:qctv
--  发布时间:2009/2/19 17:36:00
--  
老大,我要的不是这个效果,需要这样效果
产品|类别|
1   |A1  |
2   |A2  |
3   |A3  |
4   |A4  |
我要添加一个或改动一个类别自动修改类别,并排序
添加
5   |A2  | 那麽 2  |A2  |自动改为A3 ,3改为A4,4改为A5
--  作者:wjq1072
--  发布时间:2009/2/19 19:09:00
--  
egd文件下载
--  作者:qctv
--  发布时间:2009/2/19 20:22:00
--  
还有要求增加难度了,要求修改的排序不包括隐藏行
--  作者:程兴刚
--  发布时间:2009/2/19 20:28:00
--  
下面引用由qctv2009/02/19 08:22pm 发表的内容:
还有要求增加难度了,要求修改的排序不包括隐藏行


     您看见隐藏行排序了?


--  作者:wjq1072
--  发布时间:2009/2/19 20:46:00
--  
呵呵,当你的学生真不容易哦,回答一个不说对与错,又出一个新问题。这样学生就没有答题积极性啦!
--  作者:qctv
--  发布时间:2009/2/19 22:11:00
--  
我说错了,不是排序,是不要公式修改隐藏行
--  作者:qctv
--  发布时间:2009/2/19 22:17:00
--  
EvalFor(Grid,"k","Row") And SetCellText(Grid,Row,"类别",Left([类别],3)+Text(Number(Split([类别],"-",2))-0.9)) And EvalFor(Grid,"k","Split([类别],""-"",2)") And SortCol(Grid,"k",1) And EvalFor(Grid,"类别","""A1-""+Text(Row)",1)

不要修改隐藏行


--  作者:wjq1072
--  发布时间:2009/2/19 22:23:00
--  
听不懂你讲的什么意思?!

-=-=-=- 以下内容由 wjq10722009年02月19日 10:32pm 时添加 -=-=-=-
http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=14362&show=0