主题：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语句如何写呢？