| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]两张相同字段的表...... (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96290) |
| -- 作者：积水成渊 -- 发布时间：2017/2/17 11:29:00 -- [求助]两张相同字段的表...... 有两张表分别为A表和B表，它们的字段都一样，只是A表有数据,而B表是一张空表，我需要实现的功能是，在B表中输入一个字段（员工），将A表中关于这个字段（员工）的行复制到B表中。因为A表中可能一个字段（员工）有多条记录，但是下面的代码只能复制一条数据到B表，该怎么修改 |
| -- 作者：积水成渊 -- 发布时间：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
|
| -- 作者：有点色 -- 发布时间：2017/2/17 11:46:00 -- 用这种方法
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96254&skin=0
http://www.foxtable.com/webhelp/scr/2292.htm
|