Dim pr As DataRow = e.DataRow.GetParentRow("设备运行") '
If pr IsNot Nothing Then '
If pr.GetChildRows("设备运行说明").count = 1 Then
pr.Delete '
End If
如果不行,就上例子.