[求助]两张相同字段的表...... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2250人关注过本帖树形打印复制链接主题：[求助]两张相同字段的表......

积水成渊

小大 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 Select

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/17 11:46:00 [只看该作者]

用这种方法

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