主题：[求助]窗口中的Table是一个关联表，如何判断Current当前行的子行是否有数据修改过？

Dim r As Row = Tables("出库").current
If r IsNot Nothing Then
    If r.DataRow.RowState = DataRowState.Unchanged Then
        For Each dr As DataRow In r.DataRow.GetChildRows("出库明细")
            If dr.RowState = DataRowState.Unchanged Then
                Tables("出库").Position = Tables("出库").Position = 0
                Exit For
            End If
        Next
    End If
End If

老师，麻烦看下哪里出错了

老师，你的代码我试了一直不可以

以下代码就可以 ；如果父行和子行都未曾修改，就执行代码。不知道这个代码有没有错误，在网络多用户同时使用的这个窗口的情况下，【Tables("出库.出库明细").CanUndo】这个代码判断会有影响吗？

With  Tables("出库")
    If .Current IsNot Nothing And e.Form.Controls("Panelsj").Enabled = False Then
        If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
            If Tables("出库.出库明细").CanUndo = False Then
                .Position = .Position = 0
            End If
        End If
    End If
End With