老师,帮我看一下这代码,不知怎么修正。
描述:出库后,发现出库的规格和数量错了,要修改。需要把修改前旧的值重新入一次库。
Select e.DataCol.Name
Case "出库数量","出库规格"
If e.DataRow("出库修改内容") = "修改出仓规格和数量" AndAlso e.DataRow("客带料") = False Then
If e.DataCol.Name = "出库规格" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue AndAlso e.DataCol.Name = "出库数量" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
Dim dr12 As DataRow = DataTables("物料入库表").find("规格 ='" & e.DataRow("出库规格") & "'and 工令号 ='" & e.DataRow("工令号") & "' and 数量 ='" & e.DataRow("出库数量") & "'" )
If dr12 Is Nothing Then
dr12 = DataTables("物料入库表").AddNew
dr12 ("规格") = e.OldValue '为出库规格旧的值
dr12 ("物料类别") = e.DataRow("物料类别")
dr12 ("工令号") = e.DataRow("工令号")
dr12 ("数量") = e.OldValue '出库数量旧的值
dr12 ("物料来源") = "误领"
dr12 ("确认") = True
dr12 ("批准") = True
End If
End If
DataTables("物料入库表").Save()
End If
End Select