主题：表内容发生变化

假期安排表，删除行、增加行或修改内容后。请老师指点，谢谢

Dim t As Table = Tables("假期安排")
For i As Integer = t.rows.count-1 To 0 Step -1
    If t.Rows(i).DataRow.RowState = DataRowState.Modified Or DataRowState.Added Or Row.Delete Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            t.Save()           
        End If
    End If
Next