Foxtable(狐表)用户栏目专家坐堂 → 若判断重复的条件中,某些字段可能为空,则以下 代码判断失效,该如何处理啊?


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

主题:若判断重复的条件中,某些字段可能为空,则以下 代码判断失效,该如何处理啊?

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


加好友 发短信
等级:四尾狐 帖子:896 积分:7535 威望:0 精华:0 注册:2017/12/27 14:19:00
若判断重复的条件中,某些字段可能为空,则以下 代码判断失效,该如何处理啊?  发帖心情 Post By:2018/6/21 10:37:00 [只看该作者]

经过测试:只有compute内的判定条件的“所有字段”都不为空时,判断重复的提示才会跳转出来。若 某一个或几个字段可能为空,该怎么判断是否重复啊?
窗口的“确定”按钮的click事件:
……

ElseIf DataTables("工程合同及结算分摊明细表").Compute("Count([_Identify])","合同档案编号 = '" & dr("合同档案编号") & "' and 公司名称 = '" & dr("公司名称") & "' and 合作商名称 = '" & dr("合作商名称") & "' and 分包单位名称 = '" & dr("分包单位名称") & "'  and 专业名称 = '" & dr("专业名称") & "' and 专业细分 = '" & dr("专业细分") & "' ")>1 Then
    MessageBox.Show("已经存在相同的合同及专业的分摊明细行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
……

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/21 10:42:00 [只看该作者]

Dim filter As String = "1=1"

If dr("第一列") = nothing then

    filter &= " and 第一列 is null"

else

    filter &= " and 第一列 = '" & dr("第一列") & "'"

End If

If dr("第二列") = nothing then

    filter &= " and 第二列 is null"

else

    filter &= " and 第二列 = '" & dr("第二列") & "'"

End If

 

msgbox(filter)


 回到顶部