以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问这个代码怎样写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90593)

--  作者:刘林
--  发布时间:2016/9/17 20:27:00
--  请问这个代码怎样写
我想在窗口设计一个增加行记录,但在增加行前先判断表的最后行的第一列,第二列,第三列,不为空才增加否则不增加,怎么写,谢指导,谢谢
--  作者:有点蓝
--  发布时间:2016/9/18 8:45:00
--  
If Tables("表A").Rows.Count > 0 Then
    Dim r As Row = Tables("表A").Rows(Tables("表A").Rows.Count - 1)
    If Not(r.IsNull("第一列") OrElse r.IsNull("第二列") OrElse r.IsNull("第三列")) Then
        r = Tables("表A").AddNew
        \'其它处理
    End If
End If

--  作者:刘林
--  发布时间:2016/9/18 11:16:00
--  
感谢您对一个初学的支持,谢谢!