''' DataColChanged
If e.DataCol.Name = "审批"
If e.DataRow("审批") = True
If e.DataRow.IsNull("操作员") = False
Dim ss As String = e.DataRow("操作员")
For Each s As String In ss.split("，")
Dim dr As DataRow = DataTables("每人生产效率日报").AddNew
dr("机台") = e.DataRow("机台")
dr("产品") = e.DataRow("产品")
dr("操作员") = s
dr("效率") = e.DataRow("效率")
dr("审批") = True
Next
End If
Else
Dim filter As String
filter = "机台='" & e.DataRow("机台") & "' and 产品='" & e.DataRow("产品")
filter += "' and 操作员 in ('" & e.DataRow("操作员").replace("，","','") & "')"
DataTables("每人生产效率日报").DeleteFor(filter)
End If
End If
加好友 
发短信
Post By：2017/9/2 22:05:00 [显示全部帖子]
