标题：判断行与增加行的代码

1楼

annan 发表于：2011/7/29 22:19:00

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

2楼

e-png 发表于：2011/7/30

你保证除了最后一行其他都不会有空行吗？如果这样就简单了。

3楼

annan 发表于：2011/7/30 0:17:00

是的,应该如何做到

4楼

e-png 发表于：2011/7/30 9:01:00

那就判断最后一行（tables("表).count-1)的某个必须输入的的单元格为空即可呀。

5楼

annan 发表于：2011/7/30 16:12:00

我是新手,你能完整的说完解决方法吗?逻辑我知道,就是判断表A第一列为空,则不增加行,表A第一列非空,则增加行.

6楼

狐狸爸爸 发表于：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

参考帮助：

共6 条记录, 每页显示 10 条, 页签: [1]