主题：这段代码应该怎么写呀

我在删除菜单里写了一段判断代码

 

 

If DataTables("支付单").DataRows.GetChildRows("支付明细") Is Nothing
    Tables("支付单").Current.Delete
Else
    MessageBox.Show("请先删除支付单明细数据后再删除本行!", "提示")
    Return
End If

 

提示出错：编译错误　“GetChildRows”不是“DataRowCollection”的成员

请教应该如何写这段代码，谢谢！

大红袍斑竹太厉害了，我怎么没想到这个应该是针对单条记录的，看来还是实践的少，的多动手 再次感谢！

红袍版主是不是我的思路有问题，用了Is Nothing后，不管是不是有子表数据行，都不会走到有真的程序行一直显示为假的提示框。