- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于选定行某几列重复输入提示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72083)
-- 发布时间：2015/7/23 9:38:00
-- [求助]关于选定行某几列重复输入提示问题
我做了一个对信誉不良的用户列入黑名单的选项，我想在窗口录入的时候或者在关闭窗口的时候对于是在黑名单里的用户给予信息员提示，我是对用户电话和用户地址这两项检查重复的。这个是在表的DataColChanged事件里写代码吗，这个代码要怎样写，请各位老师指教，谢谢！
If e.DataRow("黑名单") = True Then
Select Case e.DataCol.name
Case "用户电话","用户地址"
Dim dr As DataRow = e.DataRow
If dr.IsNull("用户电话") = False AndAlso dr.IsNull("用户地址") = False Then
If e.DataTable.Compute("Count([_Identify])","用户电话 = \'" & dr("用户电话") & "\' And 用户地址 = \'" & dr("用户地址") & "\'") > 1 Then
MessageBox.Show("注意!该用户已经被列入黑名单,请注意核对","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End Select
End If
-- 发布时间：2015/7/23 9:40:00
--
Select Case e.DataCol.name
Case "用户电话","用户地址"
Dim dr As DataRow = e.DataRow
If dr.IsNull("用户电话") = False AndAlso dr.IsNull("用户地址") = False Then
If e.DataTable.Compute("Count([_Identify])","用户电话 = \'" & dr("用户电话") & "\' And 用户地址 = \'" & dr("用户地址") & "\' and 黑名单 = true") > 0 Then
MessageBox.Show("注意!该用户已经被列入黑名单,请注意核对","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End Select
[此贴子已经被作者于2015/7/23 9:40:52编辑过]
-- 发布时间：2015/7/23 9:46:00
--
老师，没有用
-- 发布时间：2015/7/23 9:46:00
--
不可能。
-- 发布时间：2015/7/23 9:47:00
--
要不就上传例子。
-- 发布时间：2015/7/23 10:07:00
--
因为我做的表是外部数据源，所以我先简单的做了项目，老师帮我看看，用窗口录入，问题出在哪里，谢谢！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.zip |
-- 发布时间：2015/7/23 10:11:00
--
呃，你输入重复就会提示啊，没有问题啊。
-- 发布时间：2015/7/23 10:16:00
--
这个输入用户电话没有提示，用户地址有
-- 发布时间：2015/7/23 10:17:00
--
以下是引用168wjm在2015/7/23 10:16:00的发言：
这个输入用户电话没有提示，用户地址有
这个输入用户电话没有提示，用户地址有
你用电话和地址判断重复啊，那你先输入地址，再输入电话
-- 发布时间：2015/7/23 10:20:00
--
难道是一定要两个都对上才可以？能不能电话和地址随便哪个对上就提示。