标题：自动编号的设置问题

“编号”列根据“品牌”列内容自动生成编号，当“品牌”列内容重复时“编号”列为空，附件中“品牌”列的“联塑”如果修改为“天骄”，该行“编号”列没有被清空，请帮忙修改，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试17.table

'要清除编号,可以改一下代码:
If e.DataCol.Name  = "品牌" Then
    Dim dr As DataRow
    Dim Filter As String
    dr = DataTables("表A").Find("品牌 = '" & e.newValue & "'")
    If dr IsNot Nothing Then '如果找到的话
        If dr("_Identify") <> e.DataRow("_Identify") Then
            e.DataRow("编号") = Nothing
            Return
        End If
    End If
End If