主题：退出后，对话框退出提示提示两次

dim dt as datatable = DataTables("委托单更换")
if dt.HasChanges = True Then
    If MessageBox.Show("有修改,是否保存?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        '-------------以下是设置按照委托编号读取委托台账中相关信息-------
        For Each dr1 As DataRow In DataTables("委托单更换").DataRows
            Dim dr2 As DataRow = DataTables("委托台账").Find("委托编号 = '" & dr1("委托编号") & "'" )
            If dr2 IsNot Nothing Then
                dr2("委托单更换日期") = dr1("委托单更换日期")
            End If
        Next
        '-------------以上是设置按照委托编号读取委托台账中相关信息-------
        dt.save
    End If
End If

DataTables("委托单更换").DataRows.Clear()
Tables("委托台账").AllowEdit = False