[求助]已使用的不是末级的部门编码不允许增加下级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]已使用的不是末级的部门编码不允许增加下级

共有4158人关注过本帖树形打印复制链接主题：[求助]已使用的不是末级的部门编码不允许增加下级

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2014/11/9 19:31:00 [只看该作者]

有点甜老师，

有一个问题，不知道怎么写代码，关于已经增减二级的0101结算部，其上级01财务部，不允许修改，麻烦您再看下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:部门档案.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/9 19:37:00 [只看该作者]

If e.DataCol.Name = "编码名称" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("编码名称 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("部门名称重复是否正确!","请确认")
    Else
        dr = e.DataTable.Find("编码规则 like '" & e.DataRow("编码规则") & "%'")
        If dr IsNot Nothing Then
            Messagebox.Show("不能修改")
        End If
    End If
End If

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2014/11/9 19:45:00 [只看该作者]

有点甜老师，

我的意思是，分两级的部门，当有二级部门时0101 结算部，一级不允许修改01财务编码和名称，烦您再帮忙改下，上面的代码没有达到目的。

此主题相关图片如下：qq图片20141109202254.jpg

[此贴子已经被作者于2014-11-9 21:17:48编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2014/11/9 21:21:00 [只看该作者]

有点甜老师，

没有达到目的，就是已经有了末级的上级编码不允许修改。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/9 21:23:00 [只看该作者]

[此贴子已经被作者于2014-11-9 21:23:48编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/9 21:24:00 [只看该作者]

If e.DataCol.Name = "编码名称" OrElse e.DataCol.Name = "编码规则" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("编码名称 = '" & e.DataRow("编码名称") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("部门名称重复是否正确!","请确认")

        e.Cancel = true
    Else
        dr = e.DataTable.Find("编码规则 like '" & e.DataRow("编码规则") & "%'")
        If dr IsNot Nothing Then
            Messagebox.Show("不能修改")

            e.Cancel = true
        End If
    End If
End If

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2014/11/9 21:41:00 [只看该作者]

有点甜老师，

没有达到目的，能否看下我上传的例子，是不是有别的错误，麻烦您了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:部门档案.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/9 21:46:00 [只看该作者]

If e.DataCol.Name = "编码名称" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("编码名称 = '" & e.DataRow("编码名称") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("部门名称重复是否正确!","请确认")
        'e.Cancel=True
    Else
        dr = e.DataTable.Find("编码规则 like '" & e.DataRow("编码规则") & "%'")
        If dr IsNot Nothing Then
            Messagebox.Show("不能修改")
            'e.Cancel=True
        End If
    End If
Else If e.DataCol.Name = "编码规则" Then
    Dim dr As DataRow = e.DataTable.Find("编码规则 like '" & e.OldValue & "%'")
    If dr IsNot Nothing Then
        Messagebox.Show("不能修改")
        'e.Cancel=True
    End If
End If

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2014/11/9 21:59:00 [只看该作者]

有点甜老师，

现在都不能增加数据了，按照上面的代码，在部门档案里添加一行没有录入就提示“不能修改”。我在想想，您也忙一天了，改天我在问您。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/9 22:04:00 [只看该作者]

If e.DataCol.Name = "编码名称" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("编码名称 = '" & e.DataRow("编码名称") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("部门名称重复是否正确!","请确认")
        'e.Cancel=True
    Else
        dr = e.DataTable.Find("编码规则 like '" & e.DataRow("编码规则") & "%'")
        If dr IsNot Nothing Then
            Messagebox.Show("不能修改")
            'e.Cancel=True
        End If
    End If
Else If e.DataCol.Name = "编码规则" AndAlso e.OldValue <> Nothing Then
    Dim dr As DataRow = e.DataTable.Find("编码规则 like '" & e.OldValue & "%' and _Identify <> " & e.DataRow("_Identify"))
    If dr IsNot Nothing Then
        Messagebox.Show("不能修改")
        'e.Cancel=True
    End If
End If

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

总数 24 上一页 1 2 3 下一页

主题：[求助]已使用的不是末级的部门编码不允许增加下级