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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 记录不为空控制

共有2117人关注过本帖树形打印复制链接主题：记录不为空控制

有点甜

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

加好友

发短信

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

Post By：2018/3/13 9:43:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/0644.htm

有点甜

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

加好友

发短信

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

Post By：2018/3/13 9:44:00 [显示全部帖子]

一般是在beforeSaveDataRow事件处理的，检测要保存的行，每一列是否都赋值了，没有赋值就提示，不保存数据。

有点甜

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

加好友

发短信

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

Post By：2018/3/13 15:56:00 [显示全部帖子]

以下是引用nxqtxwz在2018/3/13 15:38:00的发言：
老师，就是这个意思，可代码怎么写呢？

beforeSaveDataRow

方法一：

If e.DataRow.IsNull("第一列") orElse e.DataRow.Isnull("第二列") Then

msgbox("第一第二列不能为空")

e.cancel = true

End If

方法二：

For each dc As DataCol in e.DataTable.DataCols

If e.dataRow.IsNull(dc.name) Then

msgbox(dc.name & " 不能为空")

e.cancel = true

exit for

End If

有点甜

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

加好友

发短信

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

Post By：2018/3/13 16:51:00 [显示全部帖子]

改成

Dim r As Row = Tables("物品申报").Current
If r.IsNull("物品名称") OrElse r.Isnull("单位") OrElse r.Isnull("规格型号") OrElse r.Isnull("物品用途") OrElse r.Isnull("申报人")OrElse r.Isnull("数量") OrElse r.Isnull("预估单价") Then
msgbox("请您填写完整申报单")
Else
Tables("物品申报").AddNew()
End If

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

主题：记录不为空控制