主题：[求助]请问增加一行为何出现这样的错误提示？

datacolchanged代码在哪儿找得到

Select Case e.DataCol.Name
    Case "订单号"
        If e.DataRow.IsNull("订单号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单明细").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("订单明细").AddNew()
                dr("订单号") = e.DataRow("订单号")
            End If
        End If
End Select

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单信息")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If

报错不用管了，能增加行就行，以后再研究