易表在线答疑技术与交流用户社区 → 请朋友帮忙:如何将总成绩表中数据按要求拆分到各个表


  共有7010人关注过本帖树形打印复制链接

主题:请朋友帮忙:如何将总成绩表中数据按要求拆分到各个表

帅哥哟,离线,有人找我吗?
pengyou10000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:30 积分:0 威望:0 精华:0 注册:2009/10/16 10:29:00
请朋友帮忙:如何将总成绩表中数据按要求拆分到各个表  发帖心情 Post By:2009/11/27 15:47:00 [只看该作者]

请各位朋友帮忙看看:
前提:所有表结构相同
我想根据总成绩表,按条件将符合条件的数据分别复制到对应的表中(即将总成绩表拆分成多个符合条件的表),比如将总成绩表中班级为1-3(包括1、2、3班)的成绩复制到表“1-3班成绩”中,将总成绩表中班级为4-6的成绩表复制到表“4-6班成绩”中, 将总成绩表中班级为7-9的成绩表复制到表“7-9班成绩”中, 将总成绩表中班级为10的成绩表复制到表“10班成绩”中,请问如何实现
egd文件下载

 回到顶部
帅哥哟,离线,有人找我吗?
smileboy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:8672 积分:1734 威望:0 精华:0 注册:2006/8/11 10:52:00
  发帖心情 Post By:2009/11/27 16:09:00 [只看该作者]

eval("ClearGrid("""+Substitute(Substitute(ListGrids(),"总成绩表|",""),"|",""" And ClearGrid(""")+""")") And CopyRows("1-3班成绩","班级", "=" ,"1") And CopyRows("1-3班成绩","班级", "=" ,"2") And CopyRows("1-3班成绩","班级", "=" ,"3") And CopyRows("4-6班成绩","班级", "=" ,"4") And CopyRows("4-6班成绩","班级", "=" ,"5") And CopyRows("4-6班成绩","班级", "=" ,"6") And CopyRows("7-9班成绩","班级", "=" ,"7") And CopyRows("7-9班成绩","班级", "=" ,"8") And CopyRows("7-9班成绩","班级", "=" ,"9") And CopyRows("10班成绩","班级", "=" ,"10") And eval("DelRow("""+Substitute(Substitute(ListGrids(),"总成绩表|",""),"|",""",1) And DelRow(""")+""",1)")

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2009/11/27 16:16:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
pengyou10000
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:30 积分:0 威望:0 精华:0 注册:2009/10/16 10:29:00
  发帖心情 Post By:2009/11/27 16:20:00 [只看该作者]

朋友wjq1072给的文件不知是如何实现的

 回到顶部
帅哥哟,离线,有人找我吗?
pengyou10000
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:30 积分:0 威望:0 精华:0 注册:2009/10/16 10:29:00
  发帖心情 Post By:2009/11/27 16:24:00 [只看该作者]

不好意思,朋友wjq1072,用的预处理公式刚刚看到

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:4639 积分:133 威望:0 精华:0 注册:2006/9/23 19:23:00
  发帖心情 Post By:2009/11/28 8:39:00 [只看该作者]

1-9各表通用预处理公式:

ClearGrid(GridName) And AppendRows("总成绩表","班级"," >= ",number(left(GridName,1)),"班级"," <= ",number(mid(GridName,2,1))) And DelRow(GridName,1)


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2009/11/28 10:02:00 [只看该作者]

通用预处理公式:
ClearGrid(GridName) And Eval("AppendRows(""总成绩表"",""班级"","" >= "","+Substitute(Substitute(GridName,"班成绩",""),"-",",""班级"","" <= "",")+")") And DelRow(GridName,1)
egd文件下载

 回到顶部