以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  selct case  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97229)
--  作者：seal51
--  发布时间：2017/3/8 13:06:00
--  selct case

If Tables().Rows.Count > 0 Then
    MessageBox.Show("有明细项,请先删除明细项再删除!")
    Return
Else
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("业务列表").Current.Delete
    End If
End If

 

如果有多个子表， 用SELECT CASE语句如何写呢？
--  作者：有点色
--  发布时间：2017/3/8 13:54:00
--  

要一个一个写

 

If Tables("关联表1").Rows.Count > 0 orelse Tables("关联表2").Rows.Count > 0 OrElse Tables("关联表3").Rows.Count > 0 Then
--  作者：seal51
--  发布时间：2017/3/8 16:34:00
--  
谢谢！