BeforeDeleteDataRow事件:
If MessageBox.Show("是否删除选定行?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No e.Cancel= True End If