Foxtable(狐表)用户栏目专家坐堂 → 判断行与增加行的代码


  共有12845人关注过本帖树形打印复制链接

主题:判断行与增加行的代码

帅哥哟,离线,有人找我吗?
annan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:105 积分:1004 威望:0 精华:0 注册:2011/4/30 17:19:00
判断行与增加行的代码  发帖心情 Post By:2011/7/29 22:19:00 [只看该作者]

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/7/30 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
annan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:105 积分:1004 威望:0 精华:0 注册:2011/4/30 17:19:00
  发帖心情 Post By:2011/7/30 0:17:00 [只看该作者]

是的,应该如何做到


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/7/30 9:01:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
annan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:105 积分:1004 威望:0 精华:0 注册:2011/4/30 17:19:00
  发帖心情 Post By:2011/7/30 16:12:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 

 

 

 


 回到顶部