| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]定位到最后一行，如果是空表则增加一行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126290) |
| -- 作者：tkxffb -- 发布时间：2018/10/18 10:45:00 -- [求助]定位到最后一行，如果是空表则增加一行 下面的代码是参照论坛上各位老师的帖子写的，运行时有一个问题，如果表是空的，则报错。请老师修改一下，若表为空时就增加一行 Dim t As Table = Tables("在职人员信息表.工作经历信息表") t.Position = t.rows.count-1 [此贴子已经被作者于2018/10/18 10:47:15编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/10/18 10:52:00 -- Dim t As Table = Tables("在职人员信息表.工作经历信息表")
If t.rows.count = 0 then t.addnew
t.Position = t.rows.count-1
|
| -- 作者：tkxffb -- 发布时间：2018/10/18 10:59:00 -- “药到病除”，简直是大神，谢谢 |