| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 验证重复异常 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137400) |
| -- 作者：有点蓝 -- 发布时间：2019/7/5 9:06:00 -- 时间值可能还会带毫秒的，也就是这种数据：2019-07-01 12:12:12.1222，具体可以到后台数据库验证 如果是这样 dim d as date = cdate(format(dr("报修日期"),"yyyy-MM-dd HH:mm:ss")) If DataTables("设备异常申请_设备报修申请表").Compute("Count([_Identify])","报修日期 >= \'" & d & "\' and 报修日期 < \'" & d.AddSeconds(1) & "\' And 设备编码 = \'" & dr("设备编码")& "\' And 报修类型 = \'" & dr("报修类型") & "\'") > 1 Then
|
| -- 作者：有点蓝 -- 发布时间：2019/7/5 10:58:00 -- dim d as date = dr("报修日期").date If DataTables("设备异常申请_设备报修申请表").Compute("Count([_Identify])","报修日期 >= \'" & d & "\' and 报修日期 < \'" & d.Adddays(1) & "\' And 设备编码 = \'" & dr("设备编码")& "\' And 报修类型 = \'" & dr("报修类型") & "\'") > 1 Then
|