标题：[求助]提示订单号重复录入的对话框代码如何写？

1楼

ia928 发表于：2009/5/13 11:26:00

请教老师：订单编号列如果重复录入，出现提示框的代码如何写啊？

[此贴子已经被作者于2009-5-13 11:30:47编辑过]

2楼

kylin 发表于：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编辑过]

3楼

ia928 发表于：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

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

4楼

kylin 发表于：2009/5/13 15:00:00

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

5楼

mr725 发表于：2009/5/13 16:01:00

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

此主题相关图片如下：未命名.jpg

[此贴子已经被作者于2009-5-13 16:03:14编辑过]

6楼

狐狸爸爸 发表于：2009/5/13 16:05:00

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

7楼

mr725 发表于：2009/5/13 16:12:00

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

他需要提示，因为录入者一直录入不了数据的话，会找你麻烦的，行数多了录入者是不知道重复了的，属性为true时，录入重复内容后最好foxtable系统本身出现提示！～

8楼

mr725 发表于：2009/5/13 16:14:00

奇怪的是： kylin 代码中： e.DataRow("订单单号") = nothing 不起作用？？？？

9楼

狐狸爸爸 发表于：2009/5/13 16:21:00

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

10楼

mr725 发表于：2009/5/13 16:35:00

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

我已经给禁止重复属性false了，而且也取消了审核，你最好打开楼主文件看看，虽然能提示，但 kylin 代码中： e.DataRow("订单单号") = nothing 不起作用？？？？而且按delete键也不管用，是不是上面的代码造成的？整列都不能删除～其他列可以！

共19 条记录, 每页显示 10 条, 页签: [1] [2]