我添加了计划但不执行?是为什么?代码如下: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
加好友 
发短信
Post By：2019/8/28 13:40:00 [只看该作者]
