Dim t As Table = Tables("LSDeliverInDetail")
For i As Integer =0 To t.Rows.Count -1
Dim r1 As Row = t.Rows(i)
Dim cf As Integer = 0
If r1.IsNull("LSRingSizeID") OrElse r1("LSRingSizeID") = "" Then
cf = t.FindRow("LSRingSizeID is null or LSRingSizeID=''",i+1 ,False )
Else
cf = t.FindRow("LSRingSizeID = '" & r1("LSRingSizeID") & "'",i+1 ,False )
End If
If cf > 0 Then
t.Position = cf
MessageBox.show("第" & (i+1) & "行产品与第" & (cf+1) & "行产品重复!请修改")
End If
Next
加好友 
发短信
Post By：2016/7/15 12:06:00 [显示全部帖子]
