主题：[求助]关于用户通讯的案例

6、新建一个计划，计划的执行间隔为5秒(即5000毫秒)，代码为：

Dim flt As String
Dim drs As List(Of DataRow)
flt = "接收者 = '" & User.Name & "' And 接收时间 Is Null"

drs = DataTables("信息表").AppendLoad(flt, False)

If drs.Count > 0 then

  forms("窗口").Open()
Next

这个窗口只能是独立窗口或者停靠窗口，窗口中插入一个Table，绑定到信息表。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》