以文本方式查看主题

-  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=145384)
--  作者：susanhe
--  发布时间：2020/1/17 22:41:00
--  [求助] 记录重复输入提示
你好，请问表A中，第一列中第二次输入相同的内容，就出现提示，记录重复录入无法再录入，按钮代码如何表示。谢谢。
--  作者：cd_tdh
--  发布时间：2020/1/17 22:50:00
--  
http://www.foxtable.com/webhelp/topics/2481.htm
--  作者：susanhe
--  发布时间：2020/1/18 12:21:00
--  

谢谢，请问这个可以帮忙改成按钮代码吗 ？

 

 

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Cancel = True
    End If
End If
--  作者：有点蓝
--  发布时间：2020/1/18 14:19:00
--  
Dim dr As DataRow = DataTables("表A").Find("订单号 = \'" & Tables("表A").Current("订单号") & "\' and _Identify <> " & Tables("表A").Current("_Identify"))
If dr IsNot Nothing Then
    MessageBox.Show("此订单号已经存在!")
End If