专家坐堂-审批流程Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  审批流程  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113436)

--  作者：雅痞123456
--  发布时间：2018/1/16 7:52:00
--  审批流程
如果审批完了如何提醒下一道工序人员进行审核有没有教学视频和帮助文件最好是教学视频因为没有相关经验可以帮我快速了解一下谢谢

--  作者：有点甜
--  发布时间：2018/1/16 8:45:00
--

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

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

--  作者：雅痞123456
--  发布时间：2018/1/16 11:35:00
--

1、参考 http://www.foxtable.com/webhelp/scr/2264.htm
我按这个帮助设置好了但我还想增加提醒功能怎么办呢

--  作者：有点甜
--  发布时间：2018/1/16 11:40:00
--

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

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

--  作者：雅痞123456
--  发布时间：2018/1/16 13:16:00
--
这个我设置了也能定位我就想弹出一个提示框明显一点好让具体操作人员知道怎么回事

--  作者：有点甜
--  发布时间：2018/1/16 14:39:00
--

这样写代码

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

--  作者：雅痞123456
--  发布时间：2018/1/17 8:19:00
--

Dim Filter As String
Dim bj As String
Dim drs As List(Of DataRow)
If DataTables("物品领用单").DataRows.Count > 0 Then
Return
End If
Select Case User.Group
Case "员工之家"
Filter = "进度 = \'1B\'"
bj= "2A"
Case "车间管理人员"
Filter = "进度 = \'2B\'"
bj = "3A"
Case Else
Return \'其他用户不追载
End Select
drs = DataTables("物品领用单").AppendLoad(Filter,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

我这样写的并没有达到效果没有弹出提示框啊

--  作者：有点甜
--  发布时间：2018/1/17 8:47:00
--

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

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

--  作者：雅痞123456
--  发布时间：2018/1/17 9:25:00
--

此主题相关图片如下：1.png

此主题相关图片如下：2.png

是我理解有问题吗怎么还不显示呢

--  作者：有点甜
--  发布时间：2018/1/17 10:10:00
--

代码改成这样

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