Foxtable(狐表)用户栏目专家坐堂 → [求助] 判断空值问题


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

主题:[求助] 判断空值问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/2 17:32:00 [显示全部帖子]

 空值命令?当前行?

 

 Dim r As Row = e.Table.Current

 

 If r.IsNull("第一列") Then

 

 End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/2 19:09:00 [显示全部帖子]

Dim t As Table = Tables("机房板件端口表")
Dim r As Row = e.Table.Current
If r Is Nothing Then  Return
With Tables("机房设备板件表")
    If .Current IsNot Nothing Then
        If r.IsNull("设备编号") Then         
            t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "'   And 设备编号 Is Null  And 板件槽位 = '" & .Current("板件槽位") & "'  And 板件型号 = '" & .Current("板件型号") & "'"
        Else
            t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "'  And 设备编号 = '" & .Current("设备编号") & "'  And 板件槽位 = '" & .Current("板件槽位") & "' And 板件型号 = '" & .Current("板件型号") & "'"
        End If
    Else
        t.Filter = "False"
    End If
   
End With

[此贴子已经被作者于2014-9-2 19:09:03编辑过]

 回到顶部