主题：编号重复，清空当前行

If e.DataCol.Name = "项目编码"  Then
    Dim dr  As  DataRow
    dr = e.DataTable.Find("项目编码 = '" & e.NewValue &  "'")
    If dr IsNot Nothing Then
         for each dc as datacol in  e.DataTable.datacols

            dr(dc.name)=nothing

    next
    End  If
End  If