谢谢,这个问题已经解决了。 另外还有个问题是,按照帮助文件的代码订单和订单明细互相删除会出现错误:
1. 在订单表的BeforeDeleteDataRow事件代码设置为:
If
e.DataRow.GetChildRows("订单明细").Count > 0 Then
Dim s As String = "此订单存在订单明细, 是否确定要删除此订单及其订单明细?"
If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
e.Cancel= True
End If
End If
2.
在订单明细的DataRowDeleting输入:
Dim pr As DataRow = e.DataRow.GetParentRow("订单") '获得此明细对应的订单
If pr IsNot Nothing Then '如果有对应的订单
If pr.GetChildRows("订单明细").count = 1 Then '且这个订单的明细只有一个了
pr.Delete '删除这个订单
End If
End If
然后删除订单明细最后一行时,会提示:"此订单存在订单明细, 是否确定要删除此订单及其订单明细?" ,然后出现错误:调用的目标发生了异常。
不能在 OnRowDeleting 事件内部调用 Delete。引发异常以取消此删除。
请问这个怎么解决?