Dim Result As DialogResult
Dim tad = _SysCloseBut.pg.Parent
For Each dt As DataTable In DataTables
If dt.Type = 1 OrElse dt.Type = 3 Then
If dt.HasChanges Then
Result = MessageBox.Show("数据已经修改,是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dt.Save()
For i As Integer = 0 To tad.TabPages.Count - 1
If tad.TabPages(i).Name = _SysCloseBut.pg.name AndAlso i > 0 Then
msgbox(tad.TabPages(i-1).name)
tad.SelectedTab = tad.TabPages(i-1)
Exit For
End If
Next
Else If Result = DialogResult.NO Then
dt.RejectChanges()
Else
Return ""
End If
End If
End If
Next
tad.tabPages.Remove(_SysCloseBut.pg)
加好友 
发短信
Post By：2016/10/13 16:26:00 [显示全部帖子]
