[求助]核实表存在的重复内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]核实表存在的重复内容

共有3231人关注过本帖树形打印复制链接主题：[求助]核实表存在的重复内容

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/10 20:20:00 [显示全部帖子]

以下是引用wumingrong1在2017/5/10 18:11:00的发言：

我在【工单号】列的列属性中选择了禁止重复= True 但是我在该列中重复输入以下内容不会提示重复

CMCC-HZ-TYGZ-20170502-00615-001-0012

只有在你表格输入值的时候，才会检测。你用代码赋值时不会检测

换一种方式 http://www.foxtable.com/webhelp/scr/2481.htm

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/17 15:32:00 [显示全部帖子]

If e.DataCol.Name = "工单号" Then
    Dim dr As DataRow
    dr = e.DataTable.SqlFind("工单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此工单号已经存在!!!")
        e.Cancel = True

Else

e.datarow.Save
End If
End If

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/12 10:59:00 [显示全部帖子]

If e.DataCol.Name = "工作站" Or e.DataCol.Name = "职务" Then
Dim dr As DataRow

If e.DataCol.Name = "工作站" then
dr = e.DataTable.Find("工作站 = '" & e.NewValue & "' and 职务 = '工作站站长' ")

ElseIf e.newvalue = "工作站站长"

dr = e.DataTable.Find("工作站 = '" & e.datarow("工作站") & "' and 职务 = '工作站站长' ")

End If

    If dr IsNot Nothing Then
        MessageBox.Show("该工作站已经存在站长,不能重复录入!!!")
        e.Cancel = True
    End If
End If

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/13 16:38:00 [显示全部帖子]

9楼代码没问题，请做实例上来测试。

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/13 18:45:00 [显示全部帖子]

If e.DataCol.Name = "工作站" Or e.DataCol.Name = "职务" Then
    Dim dr As DataRow
    If e.DataCol.Name = "工作站" AndAlso e.DataRow.IsNull("职务") = False Then
        dr = e.DataTable.Find("工作站 = '" & e.NewValue & "' and 职务 = '工作站站长' ")
    ElseIf e.newvalue = "工作站站长" AndAlso e.DataRow.IsNull("工作站") = False Then
        dr = e.DataTable.Find("工作站 = '" & e.DataRow("工作站") & "' and 职务 = '工作站站长' ")
    End If
    If dr IsNot Nothing Then
        MessageBox.Show("该工作站已经存在站长,不能重复录入!!!")
        e.Cancel = True
    End If
End If

下一主题 >> << 上一主题

主题：[求助]核实表存在的重复内容