Foxtable(狐表)用户栏目专家坐堂 → 表数据空值的比较


  共有1933人关注过本帖树形打印复制链接

主题:表数据空值的比较

帅哥哟,离线,有人找我吗?
chen3728060
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
表数据空值的比较  发帖心情 Post By:2016/7/15 10:31:00 [只看该作者]

我想找出重复的值,为啥下面空值的没办法比较?

 


图片点击可在新窗口打开查看此主题相关图片如下: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/15 12:06:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
chen3728060
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:388 积分:5098 威望:0 精华:0 注册:2013/11/2 0:01:00
  发帖心情 Post By:2016/7/16 10:54:00 [只看该作者]

鉴于 空值  经常不参与运算,我还是把没数据的内容设置为  “无” 的字符串,这样方便比较


 回到顶部