以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计划不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140047)
--  作者：fendouww
--  发布时间：2019/8/28 13:40: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 "面料理单"
        Filter = "进度 = \'3B\'"
        bj = "4A"
    Case "设计助理"
        Filter = "进度 = \'4B\'"
        bj = "5A"
    Case Else
        Return \'其他用户不追载
End Select
drs = DataTables("面料调样表").AppendLoad(Filter,False) \'追载待处理行
If drs.Count > 0 Then \'设置新流程的开始标记
    For Each dr As DataRow In drs
        dr("进度") = bj
        dr.Save() \'一定要保存,以更新后台的流程开始标记
    Next
End If
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/8/28 15:01:00
--  
都退出了，还执行什么？

If DataTables("面料调样表").DataRows.Count > 0 Then \'如果表格有数据就退出？！！
    Return 
End If
--  作者：fendouww
--  发布时间：2019/8/28 15:03:00
--  
那要怎么改?这是帮助里的原代码
--  作者：有点蓝
--  发布时间：2019/8/28 15:40:00
--  
帮助教的是逻辑，只是简单的教您什么使用这个功能。放到具体业务中就未必是正确的。同样的代码在不同环境使用效果都未必是一样的。

我也不知道您需要做什么，如果不知道怎么改，那就去掉2楼这个判断代码
--  作者：fendouww
--  发布时间：2019/8/29 13:33:00
--  
已解决,谢谢