在窗口关闭前对窗口中表（table1）的数据进行判断，如果有新增或修改，则提示是否需要保存，如果点击YEs就保存，如果点击否就reject掉后直接退出。现在对datatable及table有点混淆，大大们看看，下面的代码老是有问题。

Dim t As Table=Tables("医生排班表")
Dim dt As DataTable = DataTables("医生排班表")
Dim num As Integer=t.count
Dim num1 As Integer=0
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.unchanged Then
        num1 = num1 + 1
    End If
Next
If num>num1 Then
    Dim Result As DialogResult
    Result = MessageBox.Show("排班表已经修改,是否需要保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        For Each dr1 As DataRow In dt.DataRows
            If dr1.RowState <> DataRowState.unchanged Then
                t.Current.Save()
            End If
        Next
        t.Refresh()
    Else
        t.current.Reject()
        t.Refresh()
        \'     e.Close()
    End If
Else
    Forms("排班窗口").Close
End If

有必要这么麻烦么？

Dim dt As DataTable = DataTables("医生排班表")
If dt.HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("排班表已经修改,是否需要保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dt.Save
    Else
        dt.RejectChanges
    End If
Else
    Forms("排班窗口").Close
End If