排班表datacolchanged
Select Case e.DataCol.Name
Case "机台","日期","班次","工时"
If e.DataRow.IsNull("日期") = False
Dim dr As DataRow = DataTables("排程").Find("机台='" & e.DataRow("机台") & "'")
If dr Is Nothing Then
dr = DataTables("排程").AddNew()
dr("机台") = e.DataRow("机台")
End If
Dim c As String
If e.DataRow("日期").Date = Date.Today
c = "今天"
ElseIf e.DataRow("日期").Date = Date.Today.AddDays(1)
c = "明天"
End If
c = c & "_" & e.DataRow("班次")
If DataTables("排程").DataCols.Contains(c)
dr(c) = e.DataRow("工时")
End If
End If
End Select
加好友 
发短信
Post By：2017/12/2 16:55:00 [显示全部帖子]
