Foxtable(狐表)用户栏目专家坐堂 → 【请教】本表中,自动复制编号和姓名相同的人员的职务


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

主题:【请教】本表中,自动复制编号和姓名相同的人员的职务

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 20:35:00 [显示全部帖子]

 

[此贴子已经被作者于2015/7/23 20:38:35编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 20:37:00 [显示全部帖子]

不明白你为什么要addnew?代码写到哪里,具体要实现什么功能?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 20:38:00 [显示全部帖子]

If e.DataCol.Name = "姓名"  Then
    Dim fdr As DataRow = e.DataTable.find("[编号] = '" & e.DataRow("编号") & "' And [姓名] = '" & e.DataRow("姓名") & "' and 职务 is not null")
    If fdr IsNot Nothing Then
        e.DataRow("职务") = fdr("职务")
    End If
End If

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/23 20:45:00 [显示全部帖子]

 看4楼

 回到顶部