加好友 发短信
等级:狐神
帖子:4747
积分:34533
威望:0
精华:0
注册:2008/8/31 22:44:00
|
Post By:2020/6/30 21:00:00 [显示全部帖子]
If e.DataCol.Name = "FPrioritized" Then Dim dr As DataRow dr = e.DataTable.Find("FPrioritized = '" & e.NewValue & "'") If dr IsNot Nothing Then If MessageBox.Show("已经重复了,是否要重新修改 ?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then e.DataRow("FPrioritized") = True dr("FPrioritized") = False dr("FNeg") = True e.Cancel = True End If e.DataRow("FPrioritized") = False dr("FNeg") = True End IfEnd If反复修改,肯定死循环了
|
|