以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请朋友帮忙:如何将总成绩表中数据按要求拆分到各个表  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18600)

--  作者:pengyou10000
--  发布时间: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
--  发布时间: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
--  发布时间:2009/11/27 16:16:00
--  
egd文件下载
--  作者:pengyou10000
--  发布时间:2009/11/27 16:20:00
--  
朋友wjq1072给的文件不知是如何实现的
--  作者:pengyou10000
--  发布时间:2009/11/27 16:24:00
--  
不好意思,朋友wjq1072,用的预处理公式刚刚看到
--  作者:程兴刚
--  发布时间: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
--  发布时间:2009/11/28 10:02:00
--  
通用预处理公式:
ClearGrid(GridName) And Eval("AppendRows(""总成绩表"",""班级"","" >= "","+Substitute(Substitute(GridName,"班成绩",""),"-",",""班级"","" <= "",")+")") And DelRow(GridName,1)
egd文件下载