| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]避免重复的代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147937) |
| -- 作者：81538475 -- 发布时间：2020/3/27 15:51:00 -- [求助]避免重复的代码问题 为了避免重复. 我再datacolchanging 中加入代码 If e.DataCol.Name = "XMMC" Then
Dim dr1 As DataRow Dim dr2 As DataRow If e.NewValue <>"" Then dr1 = e.DataTable.Find("XMMC = \'" & e.NewValue.replace("\'", "\'\'") & "\'") dr2 = e.DataTable.SQLFind("XMMC = \'" & e.NewValue.replace("\'", "\'\'") & "\'") If dr1 IsNot Nothing OrElse dr2 IsNot Nothing Then MessageBox.Show("此项目已存在!","温馨提示:") e.Cancel = True End If End If end if 但是这样的话,如果输入一个值之后,再撤销输入的话,就会提示重复了.应该如何处理呢 |
| -- 作者：有点蓝 -- 发布时间：2020/3/27 16:01:00 -- ("XMMC = \'" & e.NewValue.replace("\'", "\'\'") & "\' and [_Identify] <>" &e.DataRow("_Identify")) |