以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 有关保存问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144822)

--  作者:susanhe
--  发布时间:2019/12/30 21:42:00
--  [求助] 有关保存问题

您好,老师,

 

如果窗口1中的表A的第一列,第二列和第三列内容为空,就删除该记录退出。如果有内容就保存退出。如何表式。谢谢!


--  作者:有点蓝
--  发布时间:2019/12/30 21:48:00
--  
所有行?还是指选中的行?
--  作者:susanhe
--  发布时间:2019/12/30 21:51:00
--  
当前行,谢谢。
--  作者:有点蓝
--  发布时间:2019/12/30 22:12:00
--  
Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    If r.isnull("第一列") AndAlso r.isnull("第二列") AndAlso r.isnull("第三列") Then
        r.delete
    Else
        r.save
    End If
End If
e.form.close