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

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

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