甜老师好，又来烦您了，即：
如何把表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
加好友 
发短信
Post By：2018/1/26 16:41:00 [只看该作者]
