- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]提示订单号重复录入的对话框代码如何写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2773)
-- 发布时间：2009/5/13 11:26:00
-- [求助]提示订单号重复录入的对话框代码如何写？
请教老师：订单编号列如果重复录入，出现提示框的代码如何写啊？
[此贴子已经被作者于2009-5-13 11:30:47编辑过]
-- 发布时间：2009/5/13 11:42:00
--
这次破例，写一个给你参考
[此贴子已经被作者于2009-5-13 11:42:21编辑过]
-- 发布时间：2009/5/13 14:35:00
--
If e.DataCol.Name = "订单单号"
Dim n As Integer = DataTables("三级订单总表").Compute("Count(订单单号)" ,"[订单单号] = \'" & e.DataRow("订单单号") & "\'")
if n>1 then
MessageBox.Show("编号重复,将被删除!")
e.DataRow("订单单号") = nothing
end if
End If
此代码在总表中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:销售管理.table |
没有弹出提示框啊？如何修改呢？
-- 发布时间：2009/5/13 15:00:00
--
比较奇怪，5.8的版本就可以弹出提示，现在的5.12版本居然不可以，老六看看来！
-- 发布时间：2009/5/13 16:01:00
--
可以呀～ 把列属性中 静止重复 false 后才可以～
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2009-5-13 16:03:14编辑过]
-- 发布时间：2009/5/13 16:05:00
--
这个代码是多余的，因为在列属性中，已经设置了“禁止重复”
-- 发布时间：2009/5/13 16:12:00
--
以下是引用狐狸爸爸在2009-5-13 16:05:00的发言：
这个代码是多余的，因为在列属性中，已经设置了“禁止重复”
这个代码是多余的，因为在列属性中，已经设置了“禁止重复”
他需要提示，因为录入者一直录入不了数据的话，会找你麻烦的，行数多了录入者是不知道重复了的，属性为true时，录入重复内容后最好foxtable系统本身出现提示！～
-- 发布时间：2009/5/13 16:14:00
--
奇怪的是： kylin 代码中： e.DataRow("订单单号") = nothing 不起作用？？？？
-- 发布时间：2009/5/13 16:21:00
--
因为禁止重复属性，提前生效了。
他的代码根本就没有执行。
-- 发布时间：2009/5/13 16:35:00
--
以下是引用狐狸爸爸在2009-5-13 16:21:00的发言：
因为禁止重复属性，提前生效了。
他的代码根本就没有执行。
因为禁止重复属性，提前生效了。
他的代码根本就没有执行。
我已经给禁止重复属性false了，而且也取消了审核，你最好打开楼主文件看看，虽然能提示，但 kylin 代码中： e.DataRow("订单单号") = nothing 不起作用？？？？ 而且按delete键也不管用，是不是上面的代码造成的？ 整列都不能删除～ 其他列可以！