以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 判断空值问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56291)

--  作者:wumingrong1
--  发布时间:2014/9/2 17:30:00
--  [求助] 判断空值问题
请问:在表PositionChanged中如何写 判断空值 命令?
--  作者:有点甜
--  发布时间:2014/9/2 17:32:00
--  

 空值命令?当前行?

 

 Dim r As Row = e.Table.Current

 

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

 

 End If


--  作者:Bin
--  发布时间:2014/9/2 17:32:00
--  
e.table.current.isnull("列名")
--  作者:wumingrong1
--  发布时间:2014/9/2 17:52:00
--  
红色内容该怎么改?(“设备编号”列的内容为空)

t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' And 设备型号 = \'" & .Current("设备型号") & "\'   And  “设备编号”列为空  "


--  作者:Bin
--  发布时间:2014/9/2 17:53:00
--  
t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' And 设备型号 = \'" & .Current("设备型号") & "\'   And  设备编号 is null "



--  作者:Bin
--  发布时间:2014/9/2 17:54:00
--  
http://www.foxtable.com/help/topics/1647.htm
--  作者:wumingrong1
--  发布时间:2014/9/2 18:26:00
--  
在表 PositionChanged 中写有以下命令;当我打开带有该表的窗口时弹出错误提示。帮我看看是不是命令有写错的地方?


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140902182606984.jpg
图片点击可在新窗口打开查看


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

--  作者:有点甜
--  发布时间: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编辑过]