主题：[求助]表刷新

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

点击浏览该文件:查询、更新数据库.rar

其中Eval公式部分估计你不容易看懂。给你分解出来，便于你理解以及进一步认识“Eval”公式。
==================================================
查询按钮的公式：
ClearGrid("表1") And Import("表1",docdir+"数据库.egd","表1") And DelRow("表1",1) And
ClearGrid("表2") And Import("表2",docdir+"数据库.egd","表2") And DelRow("表2",1) And
ClearGrid("表3") And Import("表3",docdir+"数据库.egd","表3") And DelRow("表3",1)

通用公式：（文件中的表名称和表数量任意）
Eval("ClearGrid("""+Substitute(Substitute(Substitute(Substitute(Eval("Substitute(""|@|#|$|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|#|$|"",""|"",""")+""")"),"@",""") And Import("""),"#",""",docdir+""数据库.egd"","""),"$",""") And DelRow("""),"|",""",1) And ClearGrid(""")+""",1)")
=================================================
更新按钮的公式：
CopyGrid(docdir+"数据库.egd","表1","888","表1") And
CopyGrid(docdir+"数据库.egd","表2","888","表2") And
CopyGrid(docdir+"数据库.egd","表3","888","表3")

通用公式：
Eval("CopyGrid(docdir+""数据库.egd"","""+Substitute(Substitute(Eval("Substitute(""|@|"",""|"","""+Substitute(ListGrids(),"|",""")+""|""+Substitute(""|@|"",""|"",""")+""")"),"@",""",""888"","""),"|",""") And CopyGrid(docdir+""数据库.egd"",""")+""")")

你怎么不研究函数的功能、语法？

CopyGrid()
=================
将当前文件中的指定表复制到目标文件中。
语法
CopyGrid(FileName,Grid,Password,SourceGrid,Option)
FileName       目标文件，包括路径和文件名，如果目标文件不存在，则自动创建目标文件。
Grid           目标表名，如果已经存在，将被覆盖。
PassWord       目标文件的管理员密码。
SourceGrid     当前文件中的某个表，可以用位置，也可以用表名表示。
Option         可选参数
               0：包括数据
               1：不包括数据，仅包括结构。
               默认为0
例子：
CopyGrid("c:\sales.egd","六月数据","","本月订单")
将当前文件的“本月订单表”复制到文件c:\sales.egd中，表名为“六月数据”。
CopyGrid("c:\sales.egd","总表","888","本月订单",1)
在文件c:\sales.egd中创建一个名为“总表”的空表，结构和当前文件的“本月订单表”一样，这里假定c:\sales.egd的管理员密码为888。

当然可以使用DelFor2（）来先删除目标表中符合条件的行。但是你又使用CopyGrid（）来向目标表复制数据，这样你前面的“使用DelFor2（）来先删除目标表中符合条件的行”不就“多此一举”了？