以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]判断某行有没有值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86108)
--  作者：ivyco
--  发布时间：2016/6/11 0:01:00
--  [求助]判断某行有没有值

请问怎么样去判某表中的最后一行是否有值,没有值,则补进行任何操作,如果有值的话,则新增一样.

我用了

If Tables("某表").Current. Is Nothing Then

....

结果么起作用.

求指导.谢谢
--  作者：大红袍
--  发布时间：2016/6/11 0:09:00
--  
Dim r As Row = Tables("表A").Current
Dim flag As Boolean = True
For Each c As Col In r.Table.Cols
    If r.IsNull(c.name) = False Then
        flag = False
    End If
Next
If flag Then
    msgbox("当前行,是空行")
End If
--  作者：ivyco
--  发布时间：2016/6/11 0:17:00
--  
谢谢