最后一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 最后一行

共有1633人关注过本帖树形打印复制链接主题：最后一行

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

最后一行

Post By：2018/2/4 2:05:00 [只看该作者]

怎么判断最后一行某列是空就不增加行？譬如客户表，增加一行的时候，判断表的最后一行的“客户名称”是否空，如果空的话就不允许增加行。

1. 在表怎么写代码？

2. 窗口按钮怎么写代码

譬如

if DataTables("客户").DataRows(0).IsNull("客户名称") =False Then

MessageBox.Show("错误,没有输入客户名称!")

else Tables("客户").AddNew()

end if

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2018/2/4 2:35:00 [只看该作者]

暂时想出一个临时方法，

With Tables("客户")

.Position = .Rows.Count - 1

If Tables("客户").Current.IsNull("客户名称") = True

MessageBox.Show("错误,没有输入客户名称!")

Else Tables("客户").AddNew()

End If

End With

希望老师回答上述问题

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/4 19:11:00 [只看该作者]

Dim t As Table = Tables("客户")
Dim i As Integer = t.FindRow("客户名称 is null")
If i >= 0 Then
    t.position = i
    msgbox("第" & i+1 & "行为空")
Else
    t.AddNew
End If

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

主题：最后一行