专家坐堂-如何把表B的A列填充至表A的A列问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何把表B的A列填充至表A的A列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114016)

--  作者：Zhao2006
--  发布时间：2018/1/26 16:41:00
--  如何把表B的A列填充至表A的A列问题

甜老师好，又来烦您了，即：
如何把表B的A列填充至表A的A列问题（条件：两表的“工程名称”列同名称时对应填充，A表是父表），以下代码不知哪地方出错而没动作的

For Each dr As DataRow In DataTables("员工月填报").datarows
Dim fdr As DataRow = DataTables("工程名称").find("工程名称 = \'" & dr("工程名称") & "\'")
If fdr Is Nothing Then
Dim f As New Filler
f.SourceTable = DataTables("员工月填报") \'指定数据来源
f.SourceCols = "项目编号" \'指定数据来源列
f.DataTable = DataTables("工程名称") \'指定数据接收表
f.DataCols = "项目编号" \'指定数据接收列
f.Distinct = True \'排除重复内容,排除已有内容和空白值
f.Append = False \'默认为True,在接收表中增加新行用于接收数据,设为False,则在原有的行中填充,如果不够再增加新行.
\'f.filter = Filter
f.Fill() \'填充数据
End If
Next

--  作者：有点甜
--  发布时间：2018/1/26 17:07:00
--
For Each dr As DataRow In DataTables("员工月填报").datarows
    Dim fdr As DataRow = DataTables("工程名称").find("工程名称 = \'" & dr("工程名称") & "\'")
    If fdr IsNot Nothing Then
        dr("项目编号") = fdr("项目编号")
    End If
Next

--  作者：Zhao2006
--  发布时间：2018/1/26 17:22:00
--
完美！！太崇拜甜老师您了，短短几行代码就把我冥思苦想都想不出个所以然来的问题给解决了，再次谢谢甜老师。