主题：如何检查订单中重复录入产品的人为错误

在录入订单明细表时，出现了重复录入产品的人为错误。

1、如何在现有的订单主表与订单明细表中已出现的产品重复录入错误，

如订单号为“342344”的订单明细中，物料编号为“1110617S”是重复录入的。

2、在录入订单明细表时，如何检查人为的重复录入（当重复选择产品时，应该不得录入）。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:检查订单明细重复.table

不会改写这段代码，而且是在订单主表.订单明细表中检查。

Select Case e.DataCol.name
    Case "型号"
        If e.NewValue > "" AndAlso e.DataRow.IsNull("规格") = False
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("型号 = '" & e.NewValue & "' And 规格 = '" & dr("规格") & "'") IsNot Nothing Then
                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
    Case "规格"
        If e.NewValue > "" AndAlso e.DataRow.IsNull("型号") = False
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("型号 = '" & dr("型号") & "' And 规格 = '" & e.NewValue & "'") IsNot Nothing Then
                MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
End Select

嗯，这个代码可以检查了。谢谢