主题：不允许输入相同的任务单

Select Case e.DataCol.name

    Case "装配piao号","类型","SO号","箱号","SO行号","制造产品号","计划数量"

        Dim ph As String = e.DataRow("装配piao号")

        Dim lx As String = e.DataRow("类型")

        Dim soh As String= e.DataRow("SO号")

        Dim xh As String= e.DataRow("箱号")

        Dim sohh As String= e.DataRow("SO行号")

        Dim cph As String= e.DataRow("制造产品号")

        Dim sl As Byte= e.DataRow("计划数量")

        If e.DataCol.Name= "装配piao号" Then

            ph = e.NewValue

        ElseIf e.DataCol.Name= "类型" Then

            lx = e.NewValue

        ElseIf e.DataCol.Name= "SO号" Then

            soh = e.NewValue

        ElseIf e.DataCol.Name= "箱号" Then

            xh = e.NewValue

        ElseIf e.DataCol.Name= "SO行号" Then

            sohh = e.NewValue

        ElseIf e.DataCol.Name= "制造产品号" Then

            cph = e.NewValue

        ElseIf e.DataCol.Name= "计划数量" Then

            sl = e.NewValue

        End If

        Dim dr As DataRow = e.DataRow

        Dim filter As String= "装配piao号 = '" & ph & "' And 类型 = '" & lx & "' And SO号 = '" & soh & "' And 箱号 = '" & xh & "' And SO行号 = '" & sohh & "'And 制造产品号 = '" & cph & "'And 计划数量 = " & sl

        If e.DataTable.SqlFind(filter) IsNot Nothing Then

            MessageBox.Show("已经存在相同piao号/类型/SO号/箱号/SO行号/产品号/数量的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

            e.Cancel = True

        End If

End Select