专家坐堂-代码错误，请帮忙看看Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataRow("安排") = "安排加工" Then

If e.DataRow("类别") = "计划" Then

If e.DataCol.name Like "*序_工程名*" OrElse e.DataCol.name Like "*序_调度设备*" Then

Dim idx As Integer = e.DataCol.name.replace("第", "").replace("序_工程名", "").replace("序_调度设备", "")

If e.DataRow.IsNull("第" & idx & "序_工程名") = False AndAlso e.DataRow.IsNull("第" & idx & "序_调度设备") = False Then

Dim dr6 As DataRow

dr6 = DataTables("设备别任务").Find("开始日期 = \'" & e.DataRow("第" & idx & "序_开始日") & "\' And 工程 = \'" & e.DataRow("第" & idx & "序_工程名") & "\' AND 指令单 = \'" & e.DataRow("指令单") & "\'")

If dr6 Is Nothing Then

dr6 = DataTables("设备别任务").AddNew()

dr6("开始日期") = e.DataRow("第" & idx & "序_开始日")

dr6("设备") = e.DataRow("第" & idx & "序_调度设备")

dr6("指令单") = e.DataRow("指令单")

dr6("部品ID") = e.DataRow("部品ID")

dr6("部组名") = e.DataRow("部组名")

dr6("工程") = e.DataRow("第" & idx & "序_工程名")

dr6("结束日期") = e.DataRow("第" & idx & "序_结束日")

dr6("投入数量") = e.DataRow("第" & idx & "序_投入数量")

dr6("作业者") = e.DataRow("第" & idx & "序_作业者")

dr6("加工先") = e.DataRow("第" & idx & "序_加工先")

dr6("配膳日") = e.DataRow("第" & idx & "序_配膳日")

dr6("良品率") = e.DataRow("第" & idx & "序_良品率")

dr6("段") = e.DataRow("第" & idx & "序_段")

dr6("装") = e.DataRow("第" & idx & "序_装")

dr6("机") = e.DataRow("第" & idx & "序_机")

dr6("标准耗时天") = e.DataRow("第" & idx & "序_标准耗时天")

dr6("夜") = e.DataRow("第" & idx & "序_夜")

dr6("瓶颈") = e.DataRow("第" & idx & "序_瓶颈")

dr6("指令单变化") = e.DataRow("分类")

End If

Tables("设备别任务").Sort = "设备,指令单,开始日期"

End If