主题：禁止地区编号重复，出现提示窗口

第二行输入“中国”、“ 浙江省”，说是datacolchanged有误，如何解决？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

取消输入就行，不要删除行。

如何取消“中国”或“浙江省”。

取消正在输入的一个就行了：

 

e.Cancel = True

就是地区编号不能重复，我真不知道代码如何写？

Select Case e.DataCol.name
    Case "国家","省"
        e.DataRow("地区编号")=e.DataRow("国家") & "\" & e.DataRow("省")
        Dim m As Integer
        m = e.DataTable.compute("count(地区编号)","地区编号 = '" & e.DataRow("地区编号") & "'")
        If m>1
            MessageBox.Show("该地区名称已经存在,不能再次增加地区名称的地区!")
            e.DataRow.delete()
        End If
End Select

 

 

If e.DataCol.Name = "地区编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("地区编号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("该地区名称已经存在,不能再次增加地区名称的地区!")
        e.DataRow("国家")= Nothing
        e.DataRow("省") = Nothing
        e.Newvalue = Nothing
    End If
End If

datacolchanged还是有提示。

老大的代码如果有重覆就先提示后清除.还有一个简单的办法,将列属性的禁止重覆选项打开不就得了.

行不通的。