Foxtable(狐表)用户栏目专家坐堂 → [求助]两张相同字段的表......


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

主题:[求助]两张相同字段的表......

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


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
[求助]两张相同字段的表......  发帖心情 Post By:2017/2/17 11:29:00 [只看该作者]

有两张表分别为A表和B表,它们的字段都一样,只是A表有数据,而B表是一张空表,我需要实现的功能是,在B表中输入一个字段(员工),将A表中关于这个字段(员工)的行复制到B表中。因为A表中可能一个字段(员工)有多条记录,但是下面的代码只能复制一条数据到B表,该怎么修改

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


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/2/17 11:32:00 [只看该作者]

Select Case e.DataCol.Name
    Case "工号"
         If e.NewValue Is Nothing Then
      
            e.DataRow("所属部门") = Nothing
        Else
            Dim dr As DataRow = DataTables("A").Find("工号 = '" & e.NewValue & "'")
            

            If dr IsNot Nothing Then
                e.DataRow("核算月份") = dr("核算月份")
                e.DataRow("所属部门ID") = dr("所属部门ID")
                e.DataRow("所属部门") = dr("所属部门")
                e.DataRow("姓名") = dr("姓名")
                e.DataRow("在职状态") = dr("在职状态")
                e.DataRow("基本工资") = dr("基本工资")
                e.DataRow("技能工资") = dr("技能工资")
                 
                
            End If
        End If
End Select

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/17 11:46:00 [只看该作者]


 回到顶部