以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样根据指定间隔时间打执行文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122722)
--  作者：wjhjhj
--  发布时间：2018/8/1 0:50:00
--  怎样根据指定间隔时间打执行文件
根据时间列，每间隔30分钟，自动运行一次指定声音文件，代码怎样写，代码放在什么位置。谢谢指教！
[此贴子已经被作者于2018/8/1 7:38:09编辑过]
--  作者：有点甜
--  发布时间：2018/8/1 8:50:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0657.htm

 
--  作者：wjhjhj
--  发布时间：2018/8/1 22:38:00
--  

运行以下计划代码时

Static dt As Date \'静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then \'如果距离上次备份已经超过一个小时
dt = Date.Now
Syscmd.Project.open("c:\\data\\11.txt", True) \'自动备份到c:\\data目录
End If

出现“不能打开非开发版格式的项目文件”，怎么处理？
--  作者：有点甜
--  发布时间：2018/8/1 22:49:00
--  
Static dt As Date \'静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 10 Then \'10秒运行一次
    dt = Date.Now
    msgbox(1)
    Dim proc As new Process
    proc.file = "d:\\test.xls"
    proc.start
End If
--  作者：wjhjhj
--  发布时间：2018/8/1 23:57:00
--  

必须确定后，才能打。怎么样直接打开？谢谢
--  作者：有点甜
--  发布时间：2018/8/2 9:00:00
--  

删除这个代码 msgbox(1)

 
--  作者：wjhjhj
--  发布时间：2018/8/2 10:07:00
--  
怎样实现，如果状态列为“未办理”，运行上述代码；否则，不运行上述代码。代码怎么写，谢谢！
--  作者：有点甜
--  发布时间：2018/8/2 10:11:00
--  
以下是引用wjhjhj在2018/8/2 10:07:00的发言：
怎样实现，如果状态列为“未办理”，运行上述代码；否则，不运行上述代码。代码怎么写，谢谢！

 

参考

 

http://www.foxtable.com/webhelp/scr/0400.htm

 
--  作者：wjhjhj
--  发布时间：2018/8/2 11:23:00
--  
Static dt As Date \'静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 10 Then \'10秒运行一次
    dt = Date.Now
    Dim proc As new Process
    proc.file = "d:\\test.xls"
    proc.start
End If
只要有一行“状态列”为“未办理”，则运行上述代码的计划，否结束该计划。代码怎么修改，请指教？

代码怎么写，谢谢！
--  作者：有点甜
--  发布时间：2018/8/2 11:35:00
--  
Static dt As Date \'静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 10 Then \'10秒运行一次
    dt = Date.Now
    Dim fdr As DataRow = DataTables("表A").find("状态=\'未办理\'")
    If fdr IsNot Nothing Then
        Dim proc As new Process
        proc.file = "d:\\test.xls"
        proc.start
    End If
End If