以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列“_Identify”被约束为是唯一的。值“11”已存在。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159058)
--  作者：gv2000
--  发布时间：2020/12/12 10:01:00
--  列“_Identify”被约束为是唯一的。值“11”已存在。

列“_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
--  作者：gv2000
--  发布时间：2020/12/12 10:31:00
--  
请老师帮手查看一下
--  作者：有点蓝
--  发布时间：2020/12/12 10:39:00
--  
http://www.foxtable.com/webhelp/topics/2276.htm

需要注意的是：

1、必须确保即将追载的行，并不存在于表中，也就是这些行之前并未加载，否则将报错。
2、AppendLoad适合追载少量数据，大量数据一般用Load重新加载。



DataTables("产品BOM").removefor(Filter,)

DataTables("产品BOM").AppendLoad(Filter, False)

DataTables("产品工序表").removefor(Filter, False)

DataTables("产品工序表").AppendLoad(Filter, False)
--  作者：gv2000
--  发布时间：2020/12/12 10:43:00
--  
谢谢