外部表增加行的问题（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 外部表增加行的问题（已解决）

共有18582人关注过本帖树形打印复制链接主题：外部表增加行的问题（已解决）

sohper

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：614 威望：0 精华：0 注册：2009/5/23 10:22:00

外部表增加行的问题（已解决） 发帖心情

Post By：2009/6/15 10:36:00 [只看该作者]

外部数据表

想在增加行的时候加入一个控制，判断最后一行的某一“必输”列是否为空，如果不为空就增加一行，否则返回，在新增按钮的Click事件中加入代码如下：

If CurrentTable.Rows.Count =0 Then
    Tables("业务员表").AddNew()
ElseIf CurrentTable.Rows(CurrentTable.Rows.Count-1).("业务员") IsNot Nothing Then
    Tables("业务员表").AddNew()
Else
    Return
End If

这个代码在代码窗口中点击确定时返回

图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

[此贴子已经被作者于2009-6-15 14:34:40编辑过]

cpayinyuan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1412 积分：8937 威望：0 精华：0 注册：2008/9/1 8:57:00

Post By：2009/6/15 11:06:00 [只看该作者]

以下是引用sohper在2009-6-15 10:36:00的发言：
外部数据表

想在增加行的时候加入一个控制，判断最后一行的某一“必输”列是否为空，如果不为空就增加一行，否则返回，在新增按钮的Click事件中加入代码如下：

If CurrentTable.Rows.Count =0 Then
    Tables("业务员表").AddNew()
ElseIf CurrentTable.Rows(CurrentTable.Rows.Count-1).("业务员") IsNot Nothing Then
    Tables("业务员表").AddNew()
Else
    Return
End If

这个代码在代码窗口中点击确定时返回

图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

对于row ,不能用 isnot nothing来判断,应改为 .isnull()来判断.帮助中有的.

sohper

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：72 积分：614 威望：0 精华：0 注册：2009/5/23 10:22:00

Post By：2009/6/15 11:14:00 [只看该作者]

谢谢大侠，OK了，感谢感谢！还是没注意到一些细节啊！

下一主题 >> << 上一主题

主题：外部表增加行的问题（已解决）