有点甜老师，
有两个档案，部门档案和职员档案
部门档案怎么达到，职员档案中已使用了该部门，部门档案不能增加二级，已经使用了递归的函数
部门档案的befor add datarow怎么写代码（没有e参数） 类似如下
Select Case e.DataCol.Name
Case "编码名称"
Dim dr As DataRow
dr = DataTables("职员档案").Find("部门名称 = '" & e.DataRow & "'")
If dr IsNot Nothing Then
MessageBox.Show("已职员档案中使用,不能增加下级","提示")
e.Cancel = True
End If
Case "编码规则"
Dim dr As DataRow
dr= DataTables("职员档案").Find("部门编码 = '" & e.DataRow & "'")
If dr IsNot Nothing Then
MessageBox.Show("已职员档案中使用,不能增加下级","提示")
e.Cancel = True
End If
End Select
[此贴子已经被作者于2015-1-28 22:10:46编辑过]
加好友 
发短信
Post By：2015/1/28 22:03:00 [只看该作者]
