主题：生成不重复的条码

你是不是多人一起使用了？如果是，试试改成

Select e.DataCol.Name
    Case "录入日期","服装资料_B"
       
        If e.DataRow.IsNull("录入日期") OrElse e.DataRow.IsNull("服装资料_B") Then
            e.DataRow("条码") = Nothing
        Else
            Dim d As Date = e.DataRow("录入日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As Integer = e.DataRow("服装资料_B") & Format(d,"MMdd") '生成编号的前缀
            If e.DataRow("条码").StartsWith(bh) = False '如果条码前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "服装资料_B = '"& e.DataRow("服装资料_B") & "' And 录入日期 >= #" & fd & "# And 录入日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.sqlCompute("Max(条码)",flt) '取得该月的相同服装资料_B的最大条码
                If max > "" Then '如果存在最大条码
                    idx = CInt(max.Substring(0,3)) + 1 '获得最大条码的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("条码") =  Format(idx,"000") & bh
                e.DataRow.save
            End If
        End If
End Select

改成

Select e.DataCol.Name
    Case "录入日期","服装资料_B"
       
        If e.DataRow.IsNull("录入日期") OrElse e.DataRow.IsNull("服装资料_B") Then
            e.DataRow("条码") = Nothing
        Else
            Dim d As Date = e.DataRow("录入日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As Integer = e.DataRow("服装资料_B") & Format(d,"MMdd") '生成编号的前缀
            If e.DataRow("条码").StartsWith(bh) = False '如果条码前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "服装资料_B = '"& e.DataRow("服装资料_B") & "' And 录入日期 >= '" & fd & "' And 录入日期 <= '" & ld & "' And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.sqlCompute("Max(条码)",flt) '取得该月的相同服装资料_B的最大条码
                If max > "" Then '如果存在最大条码
                    idx = CInt(max.Substring(0,3)) + 1 '获得最大条码的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("条码") =  Format(idx,"000") & bh
                e.DataRow.save
            End If
        End If
End Select

1、你表格的主键是什么？要设置成自动递增的主键

http://www.foxtable.com/webhelp/scr/1807.htm

2、如果主键没问题，那你删除【关联】重新设置关联

1、设置成自动递增 http://www.foxtable.com/webhelp/scr/1807.htm

2、如果还有问题，看看你数据库那里是否设置了【约束】、【外键】等东西。