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
加好友 
发短信
Post By：2018/9/30 15:40:00 [只看该作者]
