以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据表的内容打开窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169498)
--  作者：15666282205
--  发布时间：2021/6/18 7:46:00
--  根据表的内容打开窗口
老师，我用下面的代码打开窗口，用了甲乙两个按钮，想实现用一个按钮自动判断的功能：如果表A的甲列不是空值，则打开甲窗口，如果乙列不是空值，则打开乙窗口。甲乙列不会存在同时有值的情况，请您指导。
Forms("甲窗口").Open()
Forms("乙窗口").Open()
--  作者：有点蓝
--  发布时间：2021/6/18 8:40:00
--  
Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    If r.IsNull("甲") = False Then
        Forms("甲窗口").Open()
    ElseIf r.IsNull("乙") = False Then
        Forms("乙窗口").Open()
    End If
End If
[此贴子已经被作者于2021/6/18 8:59:06编辑过]
--  作者：15666282205
--  发布时间：2021/6/18 8:53:00
--  
老师，我把代码放在按钮的click事件中，出现以下错误提示：
编译错误：“ROW”不是“ROW”的成员
错误代码：f r.row.isnull("甲") = false then
--  作者：有点蓝
--  发布时间：2021/6/18 8:59:00
--  
Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    If r.IsNull("甲") = False Then
        Forms("甲窗口").Open()
    ElseIf r.IsNull("乙") = False Then
        Forms("乙窗口").Open()
    End If
End If
--  作者：15666282205
--  发布时间：2021/6/18 10:05:00
--  
可以了，谢谢老师！