主题：克隆行的问题

狐爸:如果在数据表中的某列的列属性中设置了禁止重复后,则这列是不能再输入相同的数据了,但有一点,如点击一个有数据的行,然后克隆这行后,是可以很顺利的克隆该行并保存,这样的话该列的禁止重复就没起作用,我试了好多次了,请指教!

这个问题我是这样解决的。设置一个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

参考这里的示例四：

 

http://www.foxtable.com/help/topics/0624.htm

 

谢谢两位的回复,但我的意思不是怎么通过代码解决它的问题,而是这应该属于系统的问题,希望狐爸能在系统上解决它,否则如果有很多表很多列都禁止重复的话,那要设的代码就太多了,尤其是新手的话,问题就更难解决了,这应该是一个BUG,希望狐爸能解决

呵呵，我会考虑。