For Each dt As DataTable In DataTables If dt.HasChanges Then Dim Result As DialogResult Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then DataTables.save Exit For End If End If Next
加好友 
发短信
Post By：2017/6/11 16:02:00 [显示全部帖子]
