Dim Result As DialogResult With Tables("销售意向客户进度管制") If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改 Return Else Result = MessageBox.Show("没有保存,是否放弃保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then .Current.Reject() End If End If End With
加好友 
发短信
Post By：2012/1/16 13:57:00 [显示全部帖子]
