- 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=5098)
-- 发布时间：2009/11/22 16:00:00
-- 求填充公式
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:填充公式.rar |
见附表，求不重复填充公式，谢谢
[此贴子已经被作者于2009-11-22 16:35:27编辑过]
-- 发布时间：2009/11/22 16:41:00
--
dim f As New Filler
f.SourceTable = DataTables("产品工序") \'指定数据来源
f.SourceCols = "机型,机型,图号,名称" \'指定数据来源列
f.DataTable = DataTables("产品目录") \'指定数据接收表
f.DataCols = "机型,所属部分,图号,名称" \'指定数据接收列
f.Filter = "[机型] 在产品目录中没有的。 "
f.Fill() \'填充数据
[此贴子已经被作者于2009-11-22 16:58:09编辑过]
-- 发布时间：2009/11/22 16:59:00
--
f.Filter = "[型号] 在产品目录中没有的。 "
怎么写，还请mr725和各位DX帮帮忙，另：f.SourceCols = "机型,机型,图号,名称" \'指定数据来源列中第二个机型应该为所属部分，是我的文件搞错了。
还有产品工序表中也要选择不重复的行，谢谢
-- 发布时间：2009/11/22 17:11:00
--
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
其他条件请照葫芦画瓢～
-- 发布时间：2009/11/22 17:36:00
--
可能是我没有把要求说清楚，楼上的公式是在产品工序表光标所在行的机型进行对比，如产品目录表一个与该机型相关的都没有，可以填充，但是如产品目录表中有一行，就不能填充。
我的目的是1.首先筛选{产品工序}表中"机型,所属部分,图号,名称"四列都不重复的行,并与产品目录对比也要不重复（对应4列），点【填充没有的】按钮时，执行填充。2.满足上述条件筛选，再加一个窗口【机型】的筛选，进行对比要求不重复填充（对应4列不重复）3.在2条的基础上，再加一个筛选条件（即窗口【所属部分】）进行不重复填充，
关键是填充的4列不能重复（到产品目录表以后不重复），指定满足条件的行都要填充，最好能帮我把附件做好上传，我刚入门，学习，不然有一点点不对可能就搞不定。谢谢了