主题：事件提醒器

代码呢?同步到期的行,帮助里没有同步行

 

呵呵，有的，你看：

 

http://help.foxtable.com/topics/0430.htm

哦,我明日研究一下.我在想我只要在计划里做好同步行以及提醒功能,那么我在我的客户端输入时间以及提醒功能,那么另外一个客户端就可以到时就能提醒.同样我的计划时间设置短一点的话,不就可以像QQ一样了吗?反应有这么快吗?

原理不同，这个没有办法向QQ这样的。

那么我的原理做一个远程的提醒功能还是可以的。

 

DataTables("订单").DataRows(1).Load()

能不能加条件？比如我同步最新的按照时间和用户名来同步行？

Dim dr As DataRow
DataTables("表A").DataRows("第一列='" & dr("第一列") & "'").Load(False)

 

像我这个代码成立吗？命令窗口通过的。我在家没法测试。

明白了，应该是不成立的。但是如果是这样的话成立吗？

 

在计划管理器内加入计划2，代码为：

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'")
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
    forms("提醒事件查看窗口").open()
End If

DataTables("事件提醒器").DataRows(0).Load(true)

 

  但是计划时间要提前一点。

 

    

 

应该这样吧：

 

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'")
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
    forms("提醒事件查看窗口").open(
    dr.Load()
End If

狐爸,昨日我想到一个道理,其实我根本不需要这样的.我的客户端设置两个计划,一个计划为代码(因为是外埠数据源,我可以动态加载):

DataTables("事件提醒器").LoadFilter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
DataTables("事件提醒器").Load

 运行时间设置短一点.

 

第二个计划的代码就是:

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'")
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
    forms("提醒事件查看窗口").open()

End  If

 

运行事件设置为半分钟.

 

   这样一样,不管是哪个客户端写入事件,只要到时间,用户名匹配就会跳出来.

但是如果是关闭状态下,我想问狐爸,万一人家电脑在关闭状态下,我写入事件.他打开时已经过了时间,还会加载已经跳出窗口吗?