以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  请教 如何确定公式 有效  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=21440)
--  作者：薛世隆
--  发布时间：2012/6/26 23:17:00
--  请教 如何确定公式 有效
Export([主系统!备份路径],"销售表","888","销售明细","销售", " = ", - 1)  
And Export([主系统!即时备份路径],"销售表","888","销售明细","销售", " = ", - 1)  


这个公式  有时 有 效  有时 无效     

请教 老师  如何确定 公式的 执行  有效 

最好是无效有提示


谢谢  
--  作者：lyang70
--  发布时间：2012/6/27 9:00:00
--  
是不是局域网多用户使用？
--  作者：薛世隆
--  发布时间：2012/6/27 23:08:00
--  
3个用户  打开的是3个文件     每个电脑都备份到这个文件 [主系统!即时备份路径]                       
同时备份在 各自的电脑上的备份文件中 
同时记录 转移到 各自使用的文件的另一个表中 
 
 这样同一条记录 就有了3个备份   放在3个文件中  

就这样还是不能保证 记录数据 不丢失 
因为 有时 上面的两个公式 没有起到作用 数据没有备份  正在 运行的主文件 又意外关闭 。

输入的数据 找不回了。
下面是  完整的公式。EvalFor("销售明细","销售",-1) 
And Export([主系统!备份路径],"销售表","62265","销售明细","销售", " = ", - 1)  
And Export([主系统!即时备份路径],"销售表","62265","销售明细","销售", " = ", - 1)  And CopyRows("销售表","销售", " = ", - 1) 
And DelFor("销售表","货品名称"," = ","") 
And DelFor("销售明细")    


同样结构的表 有3个  销售明细    销售表      销售查询表         在销售明细表中 输入数据   输入完后  有按钮 执行上面的公式  把输入的数据 备份在 不同的电上的不同的文件中。


请老师帮一下   有没有公式能在  And DelFor("销售明细")     之前      确定       Export([主系统!备份路径],"销售表","62265","销售明细","销售", " = ", - 1)  
And Export([主系统!即时备份路径],"销售表","62265","销售明细","销售", " = ", - 1)   一定是有效了   最好能有公式  验证一 下


谢谢
--  作者：lyang70
--  发布时间：2012/6/28 8:47:00
--  

这样试试，在操作前先判断一下目标文件是否可写。

 

——EvalFor("销售明细","销售",-1) And If(CanWrite([主系统!备份路径]) = False,MsgBox([主系统!备份路径] + "正在使用，请稍后再执行！",1),Export([主系统!备份路径],"销售表","62265","销售明细","销售", " = ", - 1)) And If(CanWrite([主系统!即时备份路径]) = False,MsgBox([主系统!即时备份路径] + "正在使用，请稍后再执行！",1), Export([主系统!即时备份路径],"销售表","62265","销售明细","销售", " = ", - 1))  And CopyRows("销售表","销售", " = ", - 1)
And DelFor("销售表","货品名称"," = ","")
And DelFor("销售明细")   

--  作者：薛世隆
--  发布时间：2012/7/2 22:48:00
--  
图片点击可在新窗口打开查看lyang70  您好      CanWrite([主系统!备份路径])    文件不存在    查不到    而且结果是真
[主系统!备份路径] 这个文件不存在了    CanWrite 这个公式  查不了  返回结果是 文件可写 
是这样吗
有点搞不动

请测试一下

谢谢
图片点击可在新窗口打开查看
--  作者：lyang70
--  发布时间：2012/7/3 9:13:00
--  

检查参数“[主系统!备份路径] ”路径是否正确！

 

原公式的意思是在每次备份（存盘）前先要检测目标文件（[主系统!备份路径] ）是否在“可写”状态，如果“可写”则执行备份操作，否则提示稍后执行。
--  作者：薛世隆
--  发布时间：2012/7/3 13:13:00
--  
CanWrite([主系统!备份路径])   能不能 发现  [主系统!备份路径]  这个文件 不存在  或损坏  并提示

谢谢
--  作者：lyang70
--  发布时间：2012/7/4 10:34:00
--  
以下是引用薛世隆在2012-7-3 13:13:00的发言：
CanWrite([主系统!备份路径])   能不能 发现  [主系统!备份路径]  这个文件 不存在  或损坏  并提示

谢谢




Exist

用于判断指定文件是否存在，例如：Exist("c:\\data\\sales.egd")，如果存在，则返回True，否则返回False

 

 

CanWrite

如果其他用户正在向指定的文件写入数据，例如存盘，CanWrite就会返回False，否则返回True。也就是说该函数用于判断目标文件在当前是否可写，这样我们就可以在其他用户完成写入操作后，再开始向目标文件写入数据。
除了保存外，Delfor2、Export、CopyGrid等函数也可以向指定文件写入或删除数据，这些函数在任何时候只能一个用户执行。所以在使用这些函数之前，应该用CanWrite判断是否有其他用户正在向目标文件写入数据。

语法：

CanWrite(FileName)

Filename: 目标文件名，包括路径。

例如：

CanWrite("c:\\data\\orders.egd")
判断文件c:\\data\\orders.egd现在是否可写。