根据老师的帮助 弄成了以下代码Dim yuedu2 As String = Format( e.DataRow("作业开始时间"),"yyyy年MM月")
Dim pr2 As DataRow = e.DataRow.GetParentRow("绩效工时统计") '获得此明细对应的订单
pr2 = DataTables("绩效工时统计").Find("作业者 = '" & e.DataRow("作业者") &"' And 年月 = '" & yuedu2 & "'")
If pr2 IsNot Nothing Then '如果有对应的订单
If pr2.GetChildRows("PEQ数据").count = 1 Then '且这个订单的明细只有一个了
pr2.Delete '删除这个订单
End If
End If
出现错误
调用的目标发生了异常。
未将对象引用设置到对象的实例。
请老师斧正，谢谢！
加好友 
发短信
Post By：2016/12/9 14:58:00 [只看该作者]
