主题：[求助]请教报表打印的两个问题

Eval("FilterFor(""第一列"", ""="" ,"""+Substitute(ListFor("表1","第一列",1),"|",""",2) And Report(GridName,""1"",1,Rows,0) And FilterFor(""第一列"", ""="" ,""")+""",2) And Report(GridName,""1"",1,Rows,0)")

============================================================

把上面公式前面的"Eval"去掉放到“公式编辑器”用按钮“执行”一下就可以看到原公式的“面貌”啦！

FilterFor("第一列", "=" ,"A",2)  And Report(GridName,"1",1,Rows,0)

这就是Eval函数的动态、连续执行的功能啊！

参考相关Eval函数的贴子！

 参考：

http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=12&Id=1037

在一个Eval公式中都可以简化为：

开始部分（头）+ 用Substitute把分隔符替换部分(中) + 结束部分（尾）

这三部分如何快速得到呢?下面通过“系统初始化通用命令”来说明。
ClearGrid("表1") And ClearGrid("表2") And ClearGrid("表3")---清除系统所有表的所有数据，每个表仅一个空行。

Eval公式的模型：Eval("头"+中+"尾")

1、找出Eval公式的头---ClearGrid("---把引号增加一倍---ClearGrid(""
2、找出Eval公式的尾---")---把引号增加一倍---"")
3、找出Eval公式的中---表1") And ClearGrid("表2") And ClearGrid("表3

4、找出中的规律其中---表1------------------表2------------------表3

注意到没有？表1与表2之间；表2与表3之间的字符完全相同？！为---") And ClearGrid("
同时我们知道函数：ListGrids()---可以得到：表1|表2|表3---
如果把---表1|表2|表3---的里的|替换为---") And ClearGrid("

也就是说使用替换分隔符|：Substitute(ListGrids(),"|",""") And ClearGrid(""")
注意：") And ClearGrid("---把引号增加一倍---"") And ClearGrid(""

就可以得到Eval公式的中：表1") And ClearGrid("表2") And ClearGrid("表3

把头、中、尾写入模型：Eval("头"+中+"尾")

得到：
Eval("ClearGrid("""+Substitute(ListGrids(),"|",""") And ClearGrid(""")+""")")

二、下面通过“系统初始化通用命令”来说明。（一翻二）
ClearGrid("表1") And AddRows("表1",7) And ClearGrid("表2") And AddRows("表2",7) And ClearGrid("表3") And AddRows("表3",7)---
清除系统所有表的所有数据，每个表恢复成8个空行。

Eval公式的模型：Eval("头"+中+"尾")

1、找出Eval公式的头---ClearGrid("---把引号增加一倍---ClearGrid(""
2、找出Eval公式的尾---",7)---把引号增加一倍---"",7)
3、找出Eval公式的中---表1") And AddRows("表1",7) And ClearGrid("表2") And AddRows("表2",7) And ClearGrid("表3") And AddRows("表3

4、找出中的规律其中---表1-------@--------表1----------|---------表2--------@-------表2----------|---------表3--------@-------表3
注意到和（一翻一）公式的区别没有？其中的规律是什么？

在这里关键就是如何得到：表1---@---表1---|---表2---@---表2---|---表3---@---表3

现在使用ListGrids()---只能得到：表1|表2|表3---

套用现成的（一翻二）通用式：
一翻二("A|B|C"→"A@A|B@B|C@C")
公式：Eval("Substitute(""|@|"",""|"","""+Substitute("A|B|C","|",""")+""|""+Substitute(""|@|"",""|"",""")+""")")

用ListGrids()替换：
Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")")

再替换其中的@、|二个字符，来完成Eval公式的中。
@---") And AddRows("---把引号增加一倍---"") And AddRows(""
|---",7) And ClearGrid("---把引号增加一倍---"",7) And ClearGrid(""

替换后的中：
Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",""") And AddRows("""),"|",""",7) And ClearGrid(""")

代入模型：Eval("头"+中+"尾")

得到：
Eval("ClearGrid("""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",""") And AddRows("""),"|",""",7) And ClearGrid(""")+""",7)")