保存时检查子表明细和字段是否为空值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 保存时检查子表明细和字段是否为空值

共有3000人关注过本帖树形打印复制链接主题：保存时检查子表明细和字段是否为空值

有点蓝

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

等级：超级版主帖子：109682 积分：558114 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/6 17:18:00 [显示全部帖子]

Dim r As Row = tabes("父表").current

If r IsNot Nothing Then

If r.DataRow.GetChildRows("子表").Count > 0 Then

If DataTables("子表").Find("编号='" & r("编号") & "' and (字段A is null or 字段B is null)") IsNot Nothing Then

MsgBox("提示")

Return

End If

Else

r.delete

End If

tabes("父表").save

有点蓝

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

等级：超级版主帖子：109682 积分：558114 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/6 23:25:00 [显示全部帖子]

说明不存在空值

有点蓝

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

等级：超级版主帖子：109682 积分：558114 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/7 10:54:00 [显示全部帖子]

代码没有问题，找不到原因就上传实例测试

主题：保存时检查子表明细和字段是否为空值