Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]提示订单号重复录入的对话框代码如何写？


  共有19222人关注过本帖树形打印复制链接

主题：[求助]提示订单号重复录入的对话框代码如何写？
帅哥哟，离线，有人找我吗？
ia928
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：209 积分：3064 威望：0 精华：0 注册：2008/10/11 15:33:00 		[求助]提示订单号重复录入的对话框代码如何写？  发帖心情 Post By：2009/5/13 11:26:00 [只看该作者]

请教老师：订单编号列如果重复录入，出现提示框的代码如何写啊？
[此贴子已经被作者于2009-5-13 11:30:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kylin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级：狐精 帖子：3034 积分：19208 威望：0 精华：2 注册：2008/9/1 7:50:00 		  发帖心情 Post By：2009/5/13 11:42: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

希望多读几遍帮助，有了基础知识再上马
下不为例，呵呵

[此贴子已经被作者于2009-5-13 11:42:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ia928
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：209 积分：3064 威望：0 精华：0 注册：2008/10/11 15:33:00 		  发帖心情 Post By：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

没有弹出提示框啊？如何修改呢？

 回到顶部
帅哥哟，离线，有人找我吗？
kylin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级：狐精 帖子：3034 积分：19208 威望：0 精华：2 注册：2008/9/1 7:50:00 		  发帖心情 Post By：2009/5/13 15:00:00 [只看该作者]

比较奇怪，5.8的版本就可以弹出提示，现在的5.12版本居然不可以，老六看看来！

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/5/13 16:01:00 [只看该作者]

可以呀～  把列属性中 静止重复 false 后才可以～


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-5-13 16:03:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/5/13 16:05:00 [只看该作者]

这个代码是多余的，因为在列属性中，已经设置了“禁止重复”

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/5/13 16:12:00 [只看该作者]

以下是引用狐狸爸爸在2009-5-13 16:05:00的发言：
这个代码是多余的，因为在列属性中，已经设置了“禁止重复”

他需要提示，因为录入者一直录入不了数据的话，会找你麻烦的，行数多了录入者是不知道重复了的，属性为true时，录入重复内容后最好foxtable系统本身出现提示！～
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/5/13 16:14:00 [只看该作者]

奇怪的是： kylin   代码中： e.DataRow("订单单号") = nothing  不起作用？？？？
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47476 积分：251245 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2009/5/13 16:21:00 [只看该作者]

因为禁止重复属性，提前生效了。
他的代码根本就没有执行。

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2009/5/13 16:35:00 [只看该作者]

以下是引用狐狸爸爸在2009-5-13 16:21:00的发言：
因为禁止重复属性，提前生效了。
他的代码根本就没有执行。

我已经给禁止重复属性false了，而且也取消了审核，你最好打开楼主文件看看，虽然能提示，但 kylin   代码中： e.DataRow("订单单号") = nothing  不起作用？？？？ 而且按delete键也不管用，是不是上面的代码造成的？ 整列都不能删除～ 其他列可以！
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询