以文本方式查看主题

-  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=66411)

--  作者:dm168
--  发布时间:2015/4/5 21:17:00
--  怎样实现列中的值不重复
列如表A中的code列已经有1在文本框中填入1的时候会弹出提示框说编码不能重复,如果表A code列没有1就不会提示,并保存数据。
下面这段代码总是同时保存和提示,要怎样改才对?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


\'叛断Code列是否重复
Dim val As String = e.Form.Controls("TextBox1").value
For Each dr As DataRow In DataTables("表A").DataRows
    If dr IsNot Nothing Then
        If val IsNot Nothing Then
            If dr("Code") = val Then
                messagebox.show("编码必需是唯一的不能重复")
                Else
Tables("表A").save
            End If
        End If
    End If
    
Next
[此贴子已经被作者于2015/4/5 21:18:47编辑过]

--  作者:dm168
--  发布时间:2015/4/6 11:54:00
--  
没人帮我吗?
--  作者:jialihaha
--  发布时间:2015/4/6 12:01:00
--  
http://www.foxtable.com/help/topics/2481.htm
--  作者:dm168
--  发布时间:2015/4/6 23:30:00
--  
谢谢