Dim Row As DataRow = Table.Rows(0) If Row.RowState = DataRowState.Modified Then MsgBox "1行目は変更されています。" MsgBox "変更前の[名前]列の値:" & Row("名前", DataRowVersion.Original) MsgBox "変更後の[名前]列の値:" & Row("名前") End If