以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]验证新增行内容是否与之前有重复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159957)
--  作者：fesyj
--  发布时间：2021/1/15 10:59:00
--  [求助]验证新增行内容是否与之前有重复
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新增前验证.table

窗口1中的新增按钮要怎么写代码可以验证新增行中的班级，座号，姓名与前面记录的行内容相同时提示重复，不能再新增
[此贴子已经被作者于2021/1/15 11:51:54编辑过]
--  作者：有点蓝
--  发布时间：2021/1/15 11:04:00
--  
Dim nr As DataRow = DataTables("表A").Find("序号=\'" & e.Form.Controls("ComboBox1").text & "\'")
If nr IsNot Nothing Then
    msgbox("已有同序号的数据")
    Return
End If
Dim dr As DataRow = DataTables("表A").AddNew
dr("序号") = e.Form.Controls("ComboBox1").text
--  作者：fesyj
--  发布时间：2021/1/15 11:34:00
--  
谢谢
--  作者：fesyj
--  发布时间：2021/1/15 11:53:00
--  
我验证的内容在求助贴里有修改过了，验证新增行中的班级，座号，姓名与前面记录的行内容相同时提示重复，不能再新增，请指教
--  作者：有点蓝
--  发布时间：2021/1/15 11:55:00
--  
参考：http://www.foxtable.com/webhelp/topics/1284.htm

比如：

Dim nr As DataRow = DataTables("表A").Find("班级=\'" & e.Form.Controls("ComboBox2").text & "\' and 座号=\'" & e.Form.Controls("ComboBox3").text & "\'")
--  作者：fesyj
--  发布时间：2021/1/15 11:57:00
--  
Dim nr As DataRow = DataTables("表A").Find("序号=\'" & e.Form.Controls("ComboBox1").text & "\'" and "班级=\'" & e.Form.Controls("ComboBox2").text & "\'" and "座号=\'" & e.Form.Controls("ComboBox3").text & "\'" and "姓名=\'" & e.Form.Controls("ComboBox4").text & "\'")
If nr IsNot Nothing Then
    msgbox("已有相同的数据")
    Return
End If
Dim dr As DataRow = DataTables("表A").AddNew
dr("序号") = e.Form.Controls("ComboBox1").text
这样改写哪里不对，请指教
--  作者：有点蓝
--  发布时间：2021/1/15 12:02:00
--  
Dim nr As DataRow = DataTables("表A").Find("序号=\'" & e.Form.Controls("ComboBox1").text & "\' and 班级=\'" & e.Form.Controls("ComboBox2").text & "\' and 座号=\'" & e.Form.Controls("ComboBox3").text & "\' and 姓名=\'" & e.Form.Controls("ComboBox4").text & "\'")
--  作者：fesyj
--  发布时间：2021/1/15 12:08:00
--  
谢谢，已经解决了，多几个”号