我想找出重复的值,为啥下面空值的没办法比较?
此主题相关图片如下:3.jpg
图中最后2行都是空值,是重复的,应该提示才对,但是不提示
此主题相关图片如下:4.jpg
不空值,2个56,就能找出重复。
我的列是字符串列。
代码如下
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 = t.FindRow("LSRingSizeID = '" & r1("LSRingSizeID") & "'",i+1 ,False )
If cf > 0 Then
t.Position = cf
MessageBox.show("第" & (i+1) & "行产品与第" & (cf+1) & "行产品重复!请修改")
End If
Next
[此贴子已经被作者于2016/7/15 10:32:54编辑过]