Dim qt As Integer
If e.DataCol.Name = "工单号" Then
qt = DataTables("齐套信息").sqlCompute("Count(工单号)","[工单号] = '" & e.NewValue & "' and [缺料] <> 0")
If qt = 0 Then
e.DataRow("物料齐套情况") = "齐套"
Else
e.DataRow("物料齐套情况") = "未齐套," & "缺少" & qt & "款物料"
End If
If e.DataRow("工单号") <> "" Then
e.DataRow("主键列") = e.DataRow("工单号")
End If
End If
If e.DataCol.Name <> "更新记录" Then
Dim lsjl As String = e.DataRow.OriginalValue("更新记录")
If e.DataRow("更新记录") = "" Then
e.DataRow("更新记录") = Date.Now() & " " & e.DataCol.Name & ":" & e.OldValue & " 变更为 " & e.NewValue & "; 操作人: " & user.Name
Else
e.DataRow("更新记录") = Date.Now() & " " & e.DataCol.Name & ":" & e.OldValue & " 变更为 " & e.NewValue & "; 操作人: " & user.Name & Chr(13) & Chr(10) & lsjl
End If
DataTables("试产项目进度表").Save()
End If
加好友 
发短信
Post By：2020/1/9 12:00:00 [只看该作者]
