- 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp)
-- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2)
---- [求助]关于多对一报表问题 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=25529)
-- 发布时间：2013/5/13 17:00:00
-- [求助]关于多对一报表问题
想做一个多对一的报表，但又没时间自已研究，要求已在文件中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:卡.zip |
注明，请各位大虾鼎力帮助，谢谢！
-- 发布时间：2013/5/14 9:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:卡.zip |
-- 发布时间：2013/5/14 9:44:00
--
谢谢版主，但我是想要的是先一户一档（以户口编号相同的为一户），再生成一个报表（报表行式可以了，但还没实现一户一档。
-- 发布时间：2013/5/14 10:39:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:卡.zip |
-- 发布时间：2013/5/14 12:53:00
--
可不可以设计成按一个按键可以批量打印表中以相同户口编号为1个报表的方法呢？
-- 发布时间：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)
-- 发布时间：2013/5/15 10:22:00
--
刚验证过，过度重复打印，不断重复打印！可不可以在表里自动生成另一个表自动去重
[此贴子已经被作者于2013-5-15 11:47:13编辑过]
-- 发布时间：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)
-- 发布时间：2013/5/15 11:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:社保卡.egd |
[此贴子已经被作者于2013-5-15 14:53:29编辑过]
-- 发布时间：2013/5/15 14:16:00
--
还是不行！