主题：求填充公式

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:填充公式.rar

见附表，求不重复填充公式，谢谢

dim f As New Filler
f.SourceTable = DataTables("产品工序") '指定数据来源
f.SourceCols = "机型,机型,图号,名称" '指定数据来源列
f.DataTable = DataTables("产品目录") '指定数据接收表
f.DataCols = "机型,所属部分,图号,名称" '指定数据接收列
f.Filter = "[机型] 在产品目录中没有的。 "
f.Fill() '填充数据

f.Filter = "[型号] 在产品目录中没有的。 "
怎么写，还请mr725和各位DX帮帮忙，另：f.SourceCols = "机型,机型,图号,名称" '指定数据来源列中第二个机型应该为所属部分，是我的文件搞错了。
还有产品工序表中也要选择不重复的行，谢谢

Dim dr As DataRow
dr = DataTables("产品目录").Find("[机型] = '" & currenttable.current("机型") & "'")
If dr Is Nothing Then
    dim f As New Filler
    f.SourceTable = DataTables("产品工序") '指定数据来源
    f.SourceCols = "机型,所属部分,图号,名称" '指定数据来源列
    f.DataTable = DataTables("产品目录") '指定数据接收表
    f.DataCols = "机型,所属部分,图号,名称" '指定数据接收列
    f.Filter = "[机型] =  '" & currenttable.current("机型") & "'"
    f.Fill() '填充数据
end if

其他条件请照葫芦画瓢～

可能是我没有把要求说清楚，楼上的公式是在产品工序表光标所在行的机型进行对比，如产品目录表一个与该机型相关的都没有，可以填充，但是如产品目录表中有一行，就不能填充。
我的目的是1.首先筛选{产品工序}表中"机型,所属部分,图号,名称"四列都不重复的行,并与产品目录对比也要不重复（对应4列），点【填充没有的】按钮时，执行填充。2.满足上述条件筛选，再加一个窗口【机型】的筛选，进行对比要求不重复填充（对应4列不重复）3.在2条的基础上，再加一个筛选条件（即窗口【所属部分】）进行不重复填充，
关键是填充的4列不能重复（到产品目录表以后不重复），指定满足条件的行都要填充，最好能帮我把附件做好上传，我刚入门，学习，不然有一点点不对可能就搞不定。谢谢了