列“_Identify”被约束为是唯一的。值“11”已存在。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列“_Identify”被约束为是唯一的。值“11”已存在。

共有3454人关注过本帖树形打印复制链接主题：列“_Identify”被约束为是唯一的。值“11”已存在。

gv2000

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

加好友

发短信

等级：幼狐帖子：58 积分：492 威望：0 精华：0 注册：2020/11/10 11:34:00

列“_Identify”被约束为是唯一的。值“11”已存在。 发帖心情

Post By：2020/12/12 10:01:00 [只看该作者]

列“_Identify”被约束为是唯一的。值“11”已存在。追载时出现这个提示，请问如何改善

代码如下：

If e.Table.current IsNot Nothing Then
    Dim wz As Integer
    Dim dr As DataRow
dr = DataTables("产品BOM").SQLfind("[产品代码] = '" & e.Table.Current("产品代码") & "'")
    If dr IsNot Nothing Then
        wz = Tables("产品BOM").FindRow(dr)
        If wz >= 0 Then
            Tables("产品BOM").Position = wz
Else
Dim Filter As String = "[产品代码] = '" & e.Table.Current("产品代码") & "'"
DataTables("产品BOM").AppendLoad(Filter, False)
DataTables("产品工序表").AppendLoad(Filter, False)
DataTables("产品状态表").AppendLoad(Filter, False)
DataTables("材料用量表").AppendLoad(Filter, False)
wz = Tables("产品BOM").FindRow(dr)
Tables("产品BOM").Position = wz
        End If
    End If
End If
Forms("BOM查找窗口").close