假期安排表,删除行、增加行或修改内容后。请老师指点,谢谢
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