红袍老师,
Case Else
For Each dr As DataRow In dt2.DataRows
MessageBox.Show(e.DataCol.Name & 1)
MessageBox.Show(dr("列名") & 2)
If e.DataCol.Name =dr("列名") Then
MessageBox.Show(e.DataCol.Name =dr("列名"))
Dim dr1,dr2 As DataRow
dr1=e.DataTable.find(dr("列名") & "='" & e.NewValue & "' And _Identify <> '" & e.DataRow("_Identify") & "'")
dr2=e.DataTable.find(dr("列名") & " Like '" & e.DataRow(dr("列名")) & "%' and " & dr("列名") & " <> '" & e.DataRow(dr("列名")) & "' And " & dr("列名") & " Is Not null")
If dr1 IsNot Nothing Then
MessageBox.Show("【" & e.NewValue & "】" & "重复是否正确!","请确认")
e.Cancel = True
e.DataRow.save
Exit For
ElseIf dr2 IsNot Nothing Then
Messagebox.Show("存在下级编码,不能修改名称!","提示")
e.Cancel=True
e.DataRow.save
Exit For
End If
Functions.Execute("Haveuseadd",e)
Else
Continue For
End If
Next
提示
此主题相关图片如下:qq图片20160111202709.png