- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 员工升迁变动，审核通过就把当前的部门职位更新到员工表里 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61033)
-- 发布时间：2014/12/5 16:04:00
-- 员工升迁变动，审核通过就把当前的部门职位更新到员工表里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:员工档案.foxdb |
-- 发布时间：2014/12/5 16:11:00
--
datacochanged事件，加入代码
If e.DataCol.Name = "审核人" AndAlso e.NewValue <> Nothing Then
Dim fdr As DataRow = DataTables("员工档案").Find("工号 = \'" & e.DataRow("工号") & "\'")
If fdr IsNot Nothing Then
fdr("部门") = e.DataRow("新部门")
fdr("职务") = e.DataRow("新职务")
End If
End If