If e.DataCol.name Like "*序_工程名*" OrElse e.DataCol.name Like "*序_调度设备*" Then
Dim idx As Integer = e.DataCol.name.replace("第", "").replace("序_工程名", "").replace("序_调度设备", "")
msgbox(idx)
If e.DataRow.IsNull("第" & idx & "序_工程名") = False AndAlso e.DataRow.IsNull("第" & idx & "序_调度设备") = False Then
Dim dr6 As DataRow
dr6 = DataTables("设备别任务").Find("设备 = '" & e.DataRow("第" & idx & "序_调度设备") & "'")
If dr6 Is Nothing Then
dr6 = DataTables("设备别任务").AddNew()
dr6("设备") = e.DataRow("第" & idx & "序_调度设备")
dr6("指令单") = e.DataRow("指令单")
dr6("部品ID") = e.DataRow("部品ID")
dr6("工序") = e.DataRow("第" & idx & "序_工程名")
dr6("开始日期") = e.DataRow("第" & idx & "序_开始日")
dr6("结束日期") = e.DataRow("第" & idx & "序_结束日")
dr6("加工数量") = e.DataRow("第" & idx & "序_投入数量")
End If
End If
End If
[此贴子已经被作者于2017/5/2 16:37:25编辑过]
加好友 
发短信
Post By：2017/5/2 16:19:00 [显示全部帖子]
