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

'要清除编号,可以改一下代码:
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