以文本方式查看主题

-  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=42205)
--  作者：方沈
--  发布时间：2013/11/6 11:28:00
--  复制表

各位大侠，能否帮我修改一个代码，

我不希望复制全部的行，我自复制的行是”点检周期“列＝7的行

 

Dim f As New Filler
f.SourceTable = DataTables("点检管理表") \'指定数据来源
f.SourceCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" \'指定数据来源列
f.DataTable = DataTables("点检临时表") \'指定数据接收表
f.DataCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" \'指定数据接收列
f.Fill() \'填充数据

 

谢谢
--  作者：狐狸爸爸
--  发布时间：2013/11/6 11:29:00
--  

Dim f As New Filler
f.SourceTable = DataTables("点检管理表") \'指定数据来源
f.SourceCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" \'指定数据来源列
f.DataTable = DataTables("点检临时表") \'指定数据接收表
f.DataCols = "序号,设备名称,设备编号,点检位置,位置代码,点检内容,内容代码,点检周期,基准条码" \'指定数据接收列

f.Filter = "点到周期= 7"
f.Fill() \'填充数据