主题：表中行状态判断

想在窗口按钮代码中加个判断,判断窗口中表的所有行内容没发生过变化就提示用户,下面的代码怎么不行,pd的值都是等于 True,请教老师

Dim dt As DataTable = DataTables("授权_Table1")
Dim pd As Boolean = False
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Unchanged Then
        pd = True
    End If
Next
If pd = True Then
    MessageBox.Show("当前并未对数据进行授权?", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
Else

    这里省略........

Endif