禁止地区编号重复，出现提示窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 禁止地区编号重复，出现提示窗口

共有13315人关注过本帖树形打印复制链接主题：禁止地区编号重复，出现提示窗口

lihe60

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

禁止地区编号重复，出现提示窗口 发帖心情

Post By：2011/7/31 8:55:00 [显示全部帖子]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.rar

[此贴子已经被作者于2011-7-31 8:56:04编辑过]

lihe60

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/7/31 9:30:00 [显示全部帖子]

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

lihe60

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/7/31 9:42:00 [显示全部帖子]

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

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/7/31 9:44:00 [显示全部帖子]

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

lihe60

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/7/31 13:13:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-31 10:02:00的发言：

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还是有提示。

lihe60

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6886 积分：43605 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/8/1 8:08:00 [显示全部帖子]

以下是引用blackzhu在2011-8-1 7:46:00的发言：
老大的代码如果有重覆就先提示后清除.还有一个简单的办法,将列属性的禁止重覆选项打开不就得了.

行不通的。

下一主题 >> << 上一主题

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