一个比较特别的自动排序问题 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → 一个比较特别的自动排序问题

共有7155人关注过本帖树形打印复制链接主题：一个比较特别的自动排序问题

qctv

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

一个比较特别的自动排序问题 发帖心情

Post By：2009/2/19 17:02:00 [显示全部帖子]

egd文件下载
要求添加一条记录时，能自动修改类别编号，如：添加“书桌”类别A1-3后，所有产品类别依次自动修改为A1-4,A1-5,A1-6直到A1-9，并排序

qctv

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

Post By：2009/2/19 17:36:00 [显示全部帖子]

老大，我要的不是这个效果，需要这样效果
产品|类别|
1 |A1 |
2 |A2 |
3 |A3 |
4 |A4 |
我要添加一个或改动一个类别自动修改类别，并排序
添加
5 |A2 | 那麽 2 |A2 |自动改为A3 ,3改为A4，4改为A5

qctv

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

Post By：2009/2/19 20:22:00 [显示全部帖子]

还有要求增加难度了，要求修改的排序不包括隐藏行

qctv

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

Post By：2009/2/19 22:11:00 [显示全部帖子]

我说错了，不是排序，是不要公式修改隐藏行

qctv

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

Post By：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)

不要修改隐藏行

qctv

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：36 积分：93 威望：0 精华：0 注册：2008/9/6 23:59:00

Post By：2009/2/20 7:27:00 [显示全部帖子]

EvalFor(Grid,"k","Row",1) And SetCellText(Grid,Row,"类别",Left([类别],3)+Text(Number(Split([类别],"-",2))-0.9)) And EvalFor(Grid,"k","Split([类别],""-"",2)",1) And SortCol(Grid,"k",1) And EvalFor(Grid,"类别","""A1-""+Text(Row)",1)
老大是这样添加参数吗，
我试过这样添加，就达不到我要的效果