If Tables("商品类别表").Current IsNot Nothing Then
If Tables("商品明细表").Current("商品类别") IsNot Nothing Then
MessageBox.Show("该商品类别下已录入商品明细,不可删除","提示")
Return
Else
Tables("商品类别表").Current.Delete
DataTables("商品类别表").save
End If
End If
老师麻烦看一下,我想实现 删除 商品类别表 时,判断该类别下是否有商品明细,当该类别下有商品明细时提示都对,但当选择该类别下没有商品明细时,代码执行不了,请看一下。