- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于数据比对 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92659)
-- 发布时间：2016/11/9 22:04:00
-- 关于数据比对
此主题相关图片如下：无标题.jpg
数据表内容如上。如果新录入姓名为1的用户一条领取数据，系统自动检测之前1的领取记录，如果1的领取回执都为“是”则可以正常录入，只要有一行数据领取回执为“否”，系统在录入姓名1的同时，给出还有领取回执为“否”的弹出提示，各位老师，请问这个怎么实现啊？
-- 发布时间：2016/11/9 22:46:00
--
DataColChanged事件
Select Case e.DataCol.Name
Case "姓名"
If e.NewValue > "" Then
Dim dr As DataRow = e.DataTable.Find("姓名=\'" & e.NewValue & "\' and 领取回执=\'否\' and [_Identify] <> " & e.DataRow("_Identify"))
If dr IsNot Nothing Then msgbox("还有领取回执为""否""")
End If
End Select