以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将窗体table筛选结果复制到新表?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124176)

--  作者:wakai
--  发布时间:2018/8/31 23:34:00
--  如何将窗体table筛选结果复制到新表?
希望通过窗体Table("原料盘点_原料查询")筛选出指定类别数据并复制,但使用下列代码发现实际将全部表复制了,请教老师要怎么改

Dim f As New Filler
f.SourceTable = DataTables("原料盘点_原料查询") \'指定数据来源
f.SourceCols = "商品ID,实时库存数量" \'指定数据来源列
f.DataTable = DataTables("原料盘点_盘点表") \'指定数据接收表
f.DataCols = "商品ID,期末账面库存" \'指定数据接收列
f.Fill() \'填充数据
[此贴子已经被作者于2018/9/1 0:00:11编辑过]

--  作者:y2287958
--  发布时间:2018/9/1 7:29:00
--  
设置条件
--  作者:有点蓝
--  发布时间:2018/9/1 8:41:00
--  
Dim f As New Filler
f.SourceTable = DataTables("原料盘点_原料查询") \'指定数据来源
f.SourceCols = "商品ID,实时库存数量" \'指定数据来源列
f.DataTable = DataTables("原料盘点_盘点表") \'指定数据接收表
f.DataCols = "商品ID,期末账面库存" \'指定数据接收列
f.filter = Table("原料盘点_原料查询").filter
f.Fill() \'填充数据

--  作者:wakai
--  发布时间:2018/9/1 11:28:00
--  
蓝老师,提示table是类型,不能用作表达式
--  作者:有点蓝
--  发布时间:2018/9/1 11:58:00
--  
f.filter = Tables("原料盘点_原料查询").filter
--  作者:wakai
--  发布时间:2018/9/1 17:49:00
--  
可以了谢谢蓝老师