主题：PositionChanged

For Each pdr As DataRow In DataTables("采购主表").DataRows
    Dim drs As List(Of DataRow) = pdr.GetChildRows("采购明细")
    pdr("是否送检") = False
    For Each dr As DataRow In drs
        If dr("是否送检") = True Then
            pdr("是否送检") = True
            Exit For
        End If
    Next
Next

在PositionChanged输入以上代码，满足条件的行始终是处于修改的状态（如图）。

即使是保存后，然后再点击表中任何个位置，又变回了修改的状态。

请老师帮我看看，如何才能保存

 

此主题相关图片如下：qq截图20151014143414.jpg