以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25447)
--  作者：13636600695
--  发布时间：2012/11/9 14:51:00
--  [讨论]报错
 

此段代码 产品表[产品编号]列为空时报错

 

If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("产品")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "产品编号 = " & .Current("产品编号")
        End IF
    End With
End If
--  作者：lin_hailun
--  发布时间：2012/11/9 14:56:00
--  
 嗯嗯，确实是。需要多加一个为空的判断。
--  作者：13636600695
--  发布时间：2012/11/21 18:33:00
--  
增加判断的代码怎么加
--  作者：布莱克朱
--  发布时间：2012/11/21 18:46:00
--  
If Tables("产品表").Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
--  作者：lin_hailun
--  发布时间：2012/11/21 23:19:00
--  
 If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("产品")
        If .Current Is Nothing OrElse .Current("产品编号") Is Nothing  Then
            t.Filter = "False"
        Else
            t.Filter = "产品编号 = " & .Current("产品编号")
        End IF
    End With
End If