主题：表中行状态判断

你逻辑有问题：

Dim dt As DataTable = DataTables("授权_Table1")
Dim pd As Boolean = True
For Each dr As DataRow In dt.DataRows
    If dr.RowState <> DataRowState.Unchanged Then
        pd = False

        Exit For
    End If
Next
If pd = True Then
    MessageBox.Show("当前并未对数据进行授权?", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
Else

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

Endif