主题：审批流程

1、参考 http://www.foxtable.com/webhelp/scr/2264.htm

2、http://www.foxtable.com/webhelp/scr/3055.htm

不是在这里处理了？如果有新的，就加载出来了。加载出来之后，你可以弹出一个提示框。

9、在计划管理中新增一个计划，计划的执行间隔为10秒（即10000毫秒），代码为：

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
If DataTables("表A").DataRows.Count > 0 Then
    Return
End If
Select Case User.Name
    Case "李四"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "王五"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
Return '其他用户不追载
End Select
drs = DataTables("表A").AppendLoad(Filter,False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If

上面的代码就会每隔10秒执行一次,如果当前表已经没有数据,就从后台追载新的待处理行,并为新追载行设置本流程开始标记.
具体间隔时间可以根据需要调整,但不宜过短,以免服务器的负载过重.

这样写代码

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
If DataTables("表A").DataRows.Count > 0 Then
    Return
End If
Select Case User.Name
    Case "李四"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "王五"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
Return '其他用户不追载
End Select
drs = DataTables("表A").AppendLoad(Filter,False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    msgbox("有新数据，请注意审核")
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If

在计划管理中新增一个计划，计划的执行间隔为10秒（即10000毫秒）

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

代码改成这样

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
Select Case User.Group
    Case "员工之家"
        Filter = "进度 = '1B'"
        bj= "2A"
    Case "车间管理人员"
        Filter = "进度 = '2B'"
        bj = "3A"
    Case Else
        filter = "1=1"
End Select
output.show(Date.now)
Dim str = DataTables("物品领用单").GetComboListString("_Identify").replace("|", ",")
str = iif(str="", "-1", str)
drs = DataTables("物品领用单").AppendLoad(Filter & " and [_Identify] not in (" & str & ")",False) '追载待处理行
If drs.Count > 0 Then '设置新流程的开始标记
    MessageBox.Show("有新数据录入 请及时处理!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() '一定要保存 ,以更新后台的流程进度标记
    Next
End If

如果要实时提示，必须用到openQQ

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

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

也可以用OpenQQ，请去弄懂OpenQQ怎么用再后续开发。