主题：克隆行的问题

这个问题我是这样解决的。设置一个Var 布尔型 变量

让后在表的 DataColChanging 事件中设置代码

If e.DataCol.Name = "部门" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("部门 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        If Vars("BClone") = False Then
            MessageBox.Show("此部门已经存在,请修改!")
        Else
            Vars("BClone") = False
        End If
        e.Cancel = True
    End If
End If