主题：这二个代码有冲突，要怎么样解决

表事件

 

供应商管理_DataColChanging

 

If e.DataCol.Name = "供应商代码" Then

    Dim dr As DataRow

    dr = e.DataTable.Find("供应商代码 = '" & e.NewValue & "'")

    If dr IsNot Nothing Then

        MessageBox.Show("此供应商代码已经存在!")

        e.Cancel = True

    End If

   

End If

 

供应商管理_DataColChanged

 

Dim dr As DataRow = e.DataRow

dr("供应商代码") = CStr(e.NewValue).ToUpper