以文本方式查看主题

-  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=11483)
--  作者：annan
--  发布时间：2011/7/29 22:19:00
--  判断行与增加行的代码

如何通过代码做到:判断表A里是否有空白的行,如果有,则处于最后一行,如果没有则自动增加一个行.

 

 
--  作者：e-png
--  发布时间：2011/7/30
--  
你保证除了最后一行其他都不会有空行吗？如果这样就简单了。
--  作者：annan
--  发布时间：2011/7/30 0:17:00
--  

是的,应该如何做到
--  作者：e-png
--  发布时间：2011/7/30 9:01:00
--  

那就判断最后一行（tables("表).count-1)的某个必须输入的的单元格为空即可呀。
--  作者：annan
--  发布时间：2011/7/30 16:12:00
--  

我是新手,你能完整的说完解决方法吗?逻辑我知道,就是判断表A第一列为空,则不增加行,表A第一列非空,则增加行.
--  作者：狐狸爸爸
--  发布时间：2011/7/31 8:37:00
--  

自己做个新增行的按钮，代码为：

 

Dim i As Integer
i = Tables("表A").Find("",0,"第一列",True,True,False)
If i >= 0 Then
    Tables("表A").Position = i
Else
    Tables("表A").AddNew()
End If

 

 

参考帮助：

http://www.foxtable.net/help/topics/0552.htm