易表在线答疑 → 技术与交流 → 用户社区 → 请各位大侠帮帮小弟吧！！研究了好久就是不会写这个代码


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

主题：请各位大侠帮帮小弟吧！！研究了好久就是不会写这个代码
帅哥哟，离线，有人找我吗？
wjq1072
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/4/12 16:59:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/4/13 11:45:00 [显示全部帖子]

呵呵，不容易说清楚啊！
ClearGrid(Grid) And －－－－清除表数据；

AddCol(Grid,"p",1, False ) And －－－－增加一临时辅助列“p”；

Eval("Eval(mid(Rept("" And AddRow(Grid,""""颜色"""","""""+Substitute(ListFor("表1","颜色","选择",-1),"|",""""")"",-SumFor(""表2"",""选择"")),5)) And Eval(mid(Rept("" And AddRow(Grid,""""颜色"""",""""")+""""")"",-SumFor(""表2"",""选择"")),5))") And －－－－分别对选择的颜色“a、b、c－－－”进行增加行（数量就是选择的尺寸数量）；

其中：-SumFor("表2","选择")－－－－为选择“尺寸”的数量；

DelRow(Grid,1) And －－－－删除表的第一行；

EvalFor(Grid,"p","If(Mod(Row,-SumFor(""表2"",""选择""))=0,-SumFor(""表2"",""选择""),Mod(Row,-SumFor(""表2"",""选择"")))") And －－－－给辅助列p赋值；

EvalFor(Grid,"尺寸","Eval(""Split(""""""+ListFor(""表2"",""尺寸"",""选择"",-1)+"""""",""""|"""",[p])"")") And －－－－计算尺寸列的值；

DeleteCol(Grid,"p")－－－－删除辅助列p


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


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/4/13 22:12:00 [显示全部帖子]

提交后把表0中的内容与表3的内容合并到表4中汇总
=============================================
这个没有明白？
egd文件下载

 回到顶部
帅哥哟，离线，有人找我吗？
wjq1072
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：16190 积分：125850 威望：1 精华：0 注册：2006/8/12 12:29:00 		  发帖心情 Post By：2012/4/14 10:57:00 [显示全部帖子]

[这个贴子最后由wjq1072在 2012/04/14 02:19pm 第 1 次编辑]

egd文件下载

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright ©2002 - 2005 egrid2000.com   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06006 秒, 6 次数据查询