以文本方式查看主题 - 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 -- 感谢您对一个初学的支持,谢谢! |