Foxtable(狐表)用户栏目专家坐堂 → [求助]关于同步更新


  共有3145人关注过本帖树形打印复制链接

主题:[求助]关于同步更新

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 14:20:00 [显示全部帖子]

 方法一:用关联,其它表的父表,都设置成岗位表。

 

 加入表达式列,直接引用父表数据 http://www.foxtable.com/help/topics/0106.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 14:20:00 [显示全部帖子]

 方法二:用代码的方法,参考 http://www.foxtable.com/help/topics/1453.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 15:47:00 [显示全部帖子]

 你用关联吧,直接关联即可。

 

 父表:岗位表,岗位名称列;

 

 子表:档案表,岗位名称列;

 

 设置:http://www.foxtable.com/help/topics/1644.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 16:39:00 [显示全部帖子]

 那就不要做关联,在岗位表的DataColchanged事件写入代码

 

For Each dr As DataRow In DataTables("档案表").Select("部门名称 = '" & e.DataRow("工作部门") & "' And 岗位名称 = '" & e.OldValue & "'")
    dr("岗位名称") = e.NewValue
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 17:04:00 [显示全部帖子]

哦,忘记判断列名了

 

If e.DataCol.Name = "岗位名称" Then   
    For Each dr As DataRow In DataTables("档案表").Select("部门名称 = '" & e.DataRow("工作部门") & "' And 岗位名称 = '" & e.OldValue & "'")
        dr("岗位名称") = e.NewValue
    Next  
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 17:16:00 [显示全部帖子]

以下是引用lesliecheung912在2014-6-25 17:15:00的发言:
甜姐,再问一下,要是改工作部门时,代码应该怎么写啊?

 

If e.DataCol.Name = "工作部门" Then   
    For Each dr As DataRow In DataTables("档案表").Select("部门名称 = '" & e.OldValue & "' And 岗位名称 = '" & e.DataRow("岗位名称") & "'")
        dr("工作部门") = e.NewValue
    Next  
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 17:25:00 [显示全部帖子]

 

[此贴子已经被作者于2014-6-25 17:24:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 17:25:00 [显示全部帖子]

列名写错了

 

If e.DataCol.Name = "部门名称" Then   
    For Each dr As DataRow In DataTables("档案表").Select("部门名称 = '" & e.OldValue & "' And 岗位名称 = '" & e.DataRow("岗位名称") & "'")
        dr("部门名称") = e.NewValue
    Next  
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/25 18:05:00 [显示全部帖子]

 那就要这样写,楼主,要灵活变通!

 

If e.DataCol.Name = "部门名称" Then   
    For Each dr As DataRow In DataTables("档案表").Select("部门名称 = '" & e.OldValue & "'")
        dr("部门名称") = e.NewValue
    Next  
End If


 回到顶部