以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]筛选复制到另一临时表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99181)

--  作者:samlzc
--  发布时间:2017/4/13 21:43:00
--  [求助]筛选复制到另一临时表
根据帮助文件完成了设计查询窗口。
能对当前表进行筛选,包括日期,编号等


现在想在窗体中设置一个按钮 当点击按钮时,生成一个临时表(送货单),

将当前筛选出来的数据复制到此临时表中。

Dim jb As New SQLJoinTableBuilder("送货单",CurrentTable.DataTable.Name)

jb.AddCols("日期", "订单编号", "使用部门","编号","产品名称","单位","销售单价","品牌","规格")

jb.Build()

        MainTable = Tables("送货单")

按以上代码只能将整个表中的数据复制过去。

请问代码该如何改进。

--  作者:有点蓝
--  发布时间:2017/4/14 8:35:00
--  
Dim jb As New SQLJoinTableBuilder("送货单",CurrentTable.DataTable.Name)
jb.AddCols("日期", "订单编号", "使用部门","编号","产品名称","单位","销售单价","品牌","规格")
jb.Filter = CurrentTable.Filter
jb.Build()
MainTable = Tables("送货单")