[求助] 判断空值问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问：在表PositionChanged中如何写判断空值命令？

空值命令？当前行？

Dim r As Row = e.Table.Current

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

End If

e.table.current.isnull("列名")

红色内容该怎么改？（“设备编号”列的内容为空）

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

t.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备型号 = '" & .Current("设备型号") & "' And 设备编号 is null "

在表 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 With

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编辑过]

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