[求助]关于多对一报表问题 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → [求助]关于多对一报表问题

共有7929人关注过本帖树形打印复制链接主题：[求助]关于多对一报表问题

leungup

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

加好友

发短信

等级：论坛游民帖子：23 积分：36 威望：0 精华：0 注册：2007/2/24 10:22:00

[求助]关于多对一报表问题 发帖心情

Post By：2013/5/13 17:00:00 [只看该作者]

想做一个多对一的报表，但又没时间自已研究，要求已在文件中

下载信息 [文件大小：下载次数： ]
点击浏览该文件:卡.zip

注明，请各位大虾鼎力帮助，谢谢！

lyang70

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

加好友

发短信

等级：超级版主帖子：5115 积分：862 威望：0 精华：0 注册：2006/8/15 16:57:00

Post By：2013/5/14 9:07:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:卡.zip

leungup

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

加好友

发短信

等级：论坛游民帖子：23 积分：36 威望：0 精华：0 注册：2007/2/24 10:22:00

Post By：2013/5/14 9:44:00 [只看该作者]

谢谢版主，但我是想要的是先一户一档（以户口编号相同的为一户），再生成一个报表（报表行式可以了，但还没实现一户一档。
帅哥，在线噢！

lyang70

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

加好友

发短信

等级：超级版主帖子：5115 积分：862 威望：0 精华：0 注册：2006/8/15 16:57:00

Post By：2013/5/14 10:39:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:卡.zip

leungup

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

加好友

发短信

等级：论坛游民帖子：23 积分：36 威望：0 精华：0 注册：2007/2/24 10:22:00

Post By：2013/5/14 12:53:00 [只看该作者]

可不可以设计成按一个按键可以批量打印表中以相同户口编号为1个报表的方法呢？

lyang70

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

加好友

发短信

等级：超级版主帖子：5115 积分：862 威望：0 精华：0 注册：2006/8/15 16:57:00

Post By：2013/5/14 13:22:00 [只看该作者]

我这里没有打印机，你自己加一个按钮将下面代码植入测试一下。

AddCol(GridName,"XX",3, True ) And EvalFor(GridName,"XX","If(CountFor(GridName,""户口编号"",""="",[户口编号],1,Row) = 1,-1,0)") And FilterFor("XX",""="",-1) And Move(1,1) And Loop("2 > 1","PrintDoc(docdir + ""通知书.doc"",1) And Move(Row+1,1)",[数据!VisibleRows]) And DeleteCol(GridName,"XX") And Do(112) And MsgBox("打印完毕!",1,4)

leungup

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

加好友

发短信

等级：论坛游民帖子：23 积分：36 威望：0 精华：0 注册：2007/2/24 10:22:00

Post By：2013/5/15 10:22:00 [只看该作者]

刚验证过，过度重复打印，不断重复打印！可不可以在表里自动生成另一个表自动去重

[此贴子已经被作者于2013-5-15 11:47:13编辑过]

lyang70

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

加好友

发短信

等级：超级版主帖子：5115 积分：862 威望：0 精华：0 注册：2006/8/15 16:57:00

Post By：2013/5/15 11:34:00 [只看该作者]

这样试试：AddCol(GridName,"XX",3, True ) And EvalFor(GridName,"XX","If(CountFor(GridName,""户口编号"",""="",[户口编号],1,Row) = 1,-1,0)") And FilterFor("XX","=",-1) And Move(1,1) And Loop("Row <= [数据!VisibleRows]","PrintDoc(docdir + ""通知书.doc"",0) And Move(Row+1,1)",[数据!VisibleRows]) And DeleteCol(GridName,"XX") And Do(112) And MsgBox("打印完毕!",1,4)