以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求填充公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5098)

--  作者:wqc360
--  发布时间:2009/11/22 16:00:00
--  求填充公式
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:填充公式.rar

见附表,求不重复填充公式,谢谢
[此贴子已经被作者于2009-11-22 16:35:27编辑过]

--  作者:mr725
--  发布时间: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编辑过]

--  作者:wqc360
--  发布时间:2009/11/22 16:59:00
--  
f.Filter = "[型号] 在产品目录中没有的。 "
怎么写,还请mr725和各位DX帮帮忙,另:f.SourceCols = "机型,机型,图号,名称" \'指定数据来源列中第二个机型应该为所属部分,是我的文件搞错了。
还有产品工序表中也要选择不重复的行,谢谢
--  作者:mr725
--  发布时间: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


其他条件请照葫芦画瓢~

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