主题：[求助]自定义公式不执行，请求帮助！

请求各位大师指点下面公式哪里有问题：

 

Loop("[%打印页%] > 0","SetVariable(""%打印页%"",CountFor(""备款单"",""用户索引号"",""B"",""<>"",-1) And SetVariable(""%索引号%"",FindText(""备款单"",""用户索引号"",""B"",""<>"",-1)) And FilterFor(""用户索引号"",""="",[%索引号%],""B"",""="",0,""收与否"",""="",0) And Report(""水费计算"",""水电费备款通知单1"",1,Rows,1) And ReplaceFor(""备款单"",""B"",-1,""用户索引号"",""="",[%索引号%]) And DelFor(""备款单"",""B"",""="",-1) And ShowAllRows()",CountFor("备款单","用户索引号","B","<>",-1))

1、[%打印页%] > 0-----------------------------------------------------------------------------循环条件

2、SetVariable(""%打印页%"",CountFor(""备款单"",""用户索引号"",""B"",""<>"",-1)---------------给变量[%打印页%]赋值

3、SetVariable(""%索引号%"",FindText(""备款单"",""用户索引号"",""B"",""<>"",-1))--------------给变量[%索引号%]赋值（默认第一条记录）

4、FilterFor(""用户索引号"",""="",[%索引号%],""B"",""="",0,""收与否"",""="",0)----------------在当前表中筛选符合条件的记录

5、Report(""水费计算"",""水电费备款通知单1"",1,Rows,1)----------------------------------------打印当前表筛选的所有记录

6、ReplaceFor(""备款单"",""B"",-1,""用户索引号"",""="",[%索引号%])----------------------------替换指定表、指定列中符合条件行的值

7、DelFor(""备款单"",""B"",""="",-1)----------------------------------------------------------删除指定表中符合条件的记录

8、ShowAllRows()------------------------------------------------------------------------------显示当前表的所有记录

9、CountFor("备款单","用户索引号","B","<>",-1)------------------------------------------------最大循环次数（指定表中记录数）

这个公式不对

CountFor(""备款单"",""用户索引号"",""B"",""<>"",-1)

不要双引号吗？

去掉循环可以啊

 

SetVariable("%打印页%",CountFor("备款单","用户索引号","B","<>",-1)) And SetVariable("%索引号%",FindText("备款单","用户索引号","B","<>",-1)) And FilterFor("用户索引号","=",[%索引号%],"B","=",0,"收与否","=",0) And Report("水费计算","水电费备款通知单1",1,Rows,1) And ReplaceFor("备款单","B",-1,"用户索引号","=",[%索引号%]) And DelFor("备款单","B","=",-1) And ShowAllRows()

不是引号的问题喔，是countfor函数的语法不对，如果核算B不等于-1的数据行数

 

CountFor(""备款单"",""B"",""<>"",-1)

谢谢老师！

问题还是没解决，按下面公式：

 

SetVariable("%打印页%",CountFor("备款单","B","<>",-1)) And SetVariable("%索引号%",FindText("备款单","用户索引号","B","<>",-1)) And FilterFor("用户索引号","=",[%索引号%],"B","=",0,"收与否","=",0) And Report("水费计算","水电费备款通知单1",1,Rows,1) And ReplaceFor("备款单","B",-1,"用户索引号","=",[%索引号%]) And DelFor("备款单","B","=",-1) And ShowAllRows()

 

点一次按钮可以执行一次，把公式改为：

 

Loop("[%打印页%] > 0",

"SetVariable(""%打印页%"",CountFor(""备款单"",""B"",""<>"",-1) And

SetVariable(""%索引号%"",FindText(""备款单"",""用户索引号"",""B"",""<>"",-1)) And

FilterFor(""用户索引号"",""="",[%索引号%],""B"",""="",0,""收与否"",""="",0) And

Report(""水费计算"",""水电费备款通知单1"",1,Rows,1) And

ReplaceFor(""备款单"",""B"",-1,""用户索引号"",""="",[%索引号%]) And

DelFor(""备款单"",""B"",""="",-1) And

ShowAllRows()",

CountFor("备款单","B","<>",-1))

 

还是没反应，不知道还错在哪里？

 

 

传文件看看，结合文件说明具体需求

老师你好，因文件很大，数据很重要，关联的表多，简化表怕弄不好把文件损坏不敢乱动，所有就以下面的方式说明，望老师见谅！

此主题相关图片如下：主表结构.bmp

这是主表结构，要用到的是“A”列和“用户索引号”列及相关的条件列

此主题相关图片如下：录入窗口.bmp

这是录入窗口，在区本代码中选好代码，按钮“过滤”的公式将需要的数据复制到过度表“备款单”中并得到可打印的有效份数%打印页%，过度表“备款单”中只有两列，“B”列逻辑型、“用户索引号”列

CopyFor("备款单","用户索引号","用户索引号","B","=","0","A", "=" ,[%A%],"收与否","=","0") And DelReptRows("备款单","用户索引号") And DelFor("备款单","用户索引号","=","") And SetVariable("%打印页%",CountFor("备款单","B","<>",-1))

按钮“批量打备款通知”中的公式就是想根据“备款单”中得到的“用户索引号”筛选出主表中符合条件的记录连续打印每个“用户索引号”下的备款通知单，按公式

SetVariable("%打印页%",CountFor("备款单","B","<>",-1)) And SetVariable("%索引号%",FindText("备款单","用户索引号","B","<>",-1)) And FilterFor("用户索引号","=",[%索引号%],"B","=",0,"收与否","=",0) And Report("水费计算","水电费备款通知单1",1,Rows,1) And ReplaceFor("备款单","B",-1,"用户索引号","=",[%索引号%]) And DelFor("备款单","B","=",-1) And ShowAllRows()

可以一份一份的打印出来，问题就是要解决连续打印！

 

此主题相关图片如下：备款单.bmp

这是备款单表结构

下面是“选打备款通知”按钮中的公式：

FilterFor("用户索引号", "=" ,[%索引号%],"B","=","0","收与否","=","0") And Report("水费计算","水电费备款通知单1",1,Rows,0) And ShowAllRows() And SetVariable("%索引号%","")

在用户索引号输入框中输入变量[%索引号%]就能打印当前表中所有该索引号未缴费的全部记录

一个索引号下有多个用户号，一个用户号下也许只有一条记录也许有很多条记录，这个都解决了

参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:批量打印.egd