- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 不允许重复 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130832)
-- 发布时间：2019/2/3 10:01:00
-- 不允许重复
我想实现:科目代码不同,则允许科目名称重复,
If e.DataCol.Name = "科目名称" Then
Dim dr As DataRow
dr = e.DataTable.Find("科目名称 = \'" & e.NewValue & "\'or 科目代码 = \'"& e.datarow("科目代码") & "\'")
If dr IsNot Nothing Then
MessageBox.Show("此科目名称已经存在,请重新添加!")
e.Cancel = True
End If
End If
此主题相关图片如下：不允许重复.png
如果改为and 则同一级2121科目下也能重复,我想要的是在同级2121科目下不允许重复
[此贴子已经被作者于2019/2/3 10:03:03编辑过]
-- 发布时间：2019/2/3 10:07:00
--
增加一个上级科目列，存储2121这种内容
dr = e.DataTable.Find("科目名称 = \'" & e.NewValue & "\' and 上级科目 = \'"& e.datarow("上级科目") & "\'")