以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样写这个代码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1134)

--  作者:mr725
--  发布时间:2008/11/14 13:29:00
--  怎样写这个代码?
易表中:在表1的窗口按钮公式:DelFor("表2","编号","=",[编号]) And if(FindRow("表2","编号","=",[编号])<1,CopyRows("表2"),True)  【注意:这里的‘编号’是有一批相同的编号】
--  作者:czy
--  发布时间:2008/11/14 14:08:00
--  


 

DataTables("表2").DeleteFor("[编号] = \'"&  Tables("表1").Current("编号") & "\'")

dim f As New Filler

f.SourceTable = DataTables("表2")

f.SourceCols = "列名称1,列名称2"

f.DataTable = DataTables("当前表")

f.DataCols = "列名称1,列名称2"

f.ExcludeNullValue = True

f.Fill()

[此贴子已经被作者于2008-11-14 14:50:08编辑过]

--  作者:mr725
--  发布时间:2008/11/14 19:25:00
--  

刚回来,验证后感觉非常好,谢谢czy版主。