老师，谢谢！我写了第1序的转换，如下：
Select Case e.DataCol.Name
Case "第1序_工程名","第1序_调度设备"
If e.DataRow.IsNull("第1序_工程名") = False AndAlso e.DataRow.IsNull("第1序_调度设备") = False Then
Dim dr6 As DataRow
dr6 = DataTables("设备别任务").Find("设备 = '" & e.DataRow("第1序_调度设备") & "'")
If dr6 Is Nothing Then
dr6 = DataTables("设备别任务").AddNew()
dr6("设备") = e.DataRow("第1序_调度设备")
dr6("指令单") = e.DataRow("指令单")
dr6("部品ID") = e.DataRow("部品ID")
dr6("工序") = e.DataRow("第1序_工程名")
dr6("开始日期") = e.DataRow("第1序_开始日")
dr6("结束日期") = e.DataRow("第1序_结束日")
dr6("加工数量") = e.DataRow("第1序_投入数量")
End If
End If
End Select
最多设置了12个工序的位置，有些产品最多是6道工序，
笨办法是按照上述代码，一直写到12道工序，
请问老师，有没有简单点的办法，谢谢！
加好友 
发短信
Post By：2017/5/2 14:48:00 [显示全部帖子]
