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

你这段代码要实现什么？

你这个代码什么意思？

Tables("出库").Position = Tables("出库").Position = 0

你要这样？

Tables("出库").Position = 0

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

首单的点击代码 

判断是否有过修改，没有就执行代码

Dim r As Row = Tables("出库").current

Dim changed As Boolean = false
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
                changed = true
                Exit For
            End If
        Next
    End If
End If

If changed = false then

    msgbox(123)

    Tables("出库").Position = 0

else

    msgbox("修改了")

End If