butten1_click
Dim Result As DialogResultResult = MessageBox.Show("
确定要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)If Result = DialogResult.Yes Then For Each dt As DataTable In DataTables dt.Save() Next
End if