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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除问题

共有2216人关注过本帖树形打印复制链接主题：删除问题

outcat

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

等级：一尾狐帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00

删除问题

Post By：2019/10/21 13:51:00 [只看该作者]

If Tables("商品类别表").Current IsNot Nothing Then

If Tables("商品明细表").Current("商品类别") IsNot Nothing Then

MessageBox.Show("该商品类别下已录入商品明细,不可删除","提示")

Return

Else

Tables("商品类别表").Current.Delete

DataTables("商品类别表").save

End If

老师麻烦看一下，我想实现删除商品类别表时，判断该类别下是否有商品明细，当该类别下有商品明细时提示都对，但当选择该类别下没有商品明细时，代码执行不了，请看一下。

有点蓝

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

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

Post By：2019/10/21 15:11:00 [只看该作者]

If Tables("商品类别表").Current IsNot Nothing Then

If Tables("商品明细表").compute("count(商品类别)","商品类别='" & Tables("商品类别表").Current ("商品类别") & "'") > 0 Then

MessageBox.Show("该商品类别下已录入商品明细,不可删除","提示")

Return

Else

主题：删除问题