| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请问判断最后一行是否为空行的代码怎么写呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92065) |
| -- 作者：ezgame -- 发布时间：2016/10/25 13:34:00 -- [求助]请问判断最后一行是否为空行的代码怎么写呢？ 如题，想判断当前表最后一行是否为空行，如果为空行，就不让新增行，求助代码如何写，多谢！ |
| -- 作者：18523982317 -- 发布时间：2016/10/25 13:45:00 -- 遍历列，如果最后一行所有列的值都为空。。。。那么不让新增行 [此贴子已经被作者于2016/10/25 13:45:03编辑过]
|
| -- 作者：ezgame -- 发布时间：2016/10/25 13:59:00 -- 以下是引用18523982317在2016/10/25 13:45:00的发言：
遍历列，如果最后一行所有列的值都为空。。。。那么不让新增行 [此贴子已经被作者于2016/10/25 13:45:03编辑过] 那是不是得把所有行的所有列都判断一遍？ 能不能做到只判断最后一行的所有列？大概思路知道了，新手学习中，方便的话给个代码我研究下，谢谢！ |
| -- 作者：狐狸爸爸 -- 发布时间：2016/10/25 14:21:00 -- Dim r as row = Tables("表A").Rows(Tables("表A").Rows.Count - 1) Dim mm as Boolean = true for Each c as col in Tables("表A").Cols if r.ismull(c) = false then mm = false end if next return mm |
| -- 作者：GD007 -- 发布时间：2016/10/25 14:43:00 -- 測試，上面出錯！！ |
| -- 作者：cbt -- 发布时间：2016/10/25 14:45:00 -- if r.ismull(c) 改为 if r.isnull(c.name) [此贴子已经被作者于2016/10/25 14:45:29编辑过]
|
| -- 作者：ezgame -- 发布时间：2016/10/25 15:03:00 -- 感谢以上各位！ |
| -- 作者：ezgame -- 发布时间：2016/10/25 15:34:00 -- 以下是引用狐狸爸爸在2016/10/25 14:21:00的发言：
Dim r as row = Tables("表A").Rows(Tables("表A").Rows.Count - 1) Dim mm as Boolean = true for Each c as col in Tables("表A").Cols if r.ismull(c) = false then mm = false end if next return mm 发现一个问题，我的这个表里面，有好几列是 Boolean 类型的，这个布尔类型是不是默认有值为 false ？用 isnull() 去判断的时候，得出的结果是“不为空” |
| -- 作者：有点蓝 -- 发布时间：2016/10/25 15:57:00 -- 是的 |