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

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

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

lyang70

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

加好友

发短信

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

Post By：2013/5/14 9:07:00 [显示全部帖子]

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

lyang70

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

加好友

发短信

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

Post By：2013/5/14 10:39:00 [显示全部帖子]

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

lyang70

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

lyang70

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

lyang70

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

加好友

发短信

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

Post By：2013/5/16 11:35:00 [显示全部帖子]

以下是引用leungup在2013-5-15 14:16:00的发言：
还是不行！

找了一台打印机测试了一下，应该可以了（前提：使用默认打印机）

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

测试时执行打印期间会闪屏或延迟（视电脑处理速度）...请无视之...

[此贴子已经被作者于2013-5-16 15:33:45编辑过]

下一主题 >> << 上一主题

主题：[求助]关于多对一报表问题