[求助]关于条件禁止重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于条件禁止重复

共有4036人关注过本帖树形打印复制链接主题：[求助]关于条件禁止重复

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/17 9:01:00 [显示全部帖子]

没看懂，请截图举例说明一下

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/18 11:10:00 [显示全部帖子]

到DataColChanging事件判断，录入的姓名，使用find查询同表同姓名的记录，按照日期排序获取最后消费日期：http://www.foxtable.com/webhelp/topics/0396.htm，然后和具体进行比较

If e.DataCol.Name = "客户" Then
Dim dr As DataRow
dr = e.DataTable.Find("客户 = '" & e.NewValue & "' and _identify <>" & e.datarow("_identify")，"日期 desc")

If dr IsNot Nothing Then
if (date.today - cdate(dr("日期"))).TotalDays < 30

e.Cancel = True
End If
End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/26 8:56:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/1284.htm

【_identify <>" & e.datarow("_identify"】指查询数据的时候排除自己

建议花时间先过2遍基础：http://www.foxtable.com/webhelp/topics/1592.htm

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/26 8:57:00 [显示全部帖子]

以下是引用c39lin在2021/11/26 2:52:00的发言：
这么写的话少了个End If

补上后可以正确运行了。

目前效果是30天内禁止客户在所有网点消费。

那么如何识别网点A和网点B呢？

就是客户在网点A消费的隔天是可以去网点B消费的，但是30天内禁止在网点A消费。

间隔时间是分开计算的

加上网点做条件

dr = e.DataTable.Find("客户 = '" & e.NewValue & "' and 网点='" & e.datarow("网点") & "' and _identify <> " & e.datarow("_identify")，"日期 desc")

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/27 9:31:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/27 11:55:00 [显示全部帖子]

这个代码不应该会报错，调试一下看是哪一句代码的问题：http://www.foxtable.com/webhelp/topics/1485.htm

删除项目里的bin目录，重启项目试试

下一主题 >> << 上一主题

主题：[求助]关于条件禁止重复