If ptable IsNot Nothing Then If CurrentTable.name <> ptable.name AndAlso ptable.Form IsNot Nothing AndAlso ptable.DataTable.HasChanges Then msgbox(ptable.name & "未保存") ShowAppWindow(ptable.form.Text,1) Else ptable = CurrentTable End If Else ptable = CurrentTable End If