以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助如何复制表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99037)
--  作者：haizhiri
--  发布时间：2017/4/11 15:30:00
--  求助如何复制表
新建了个窗口，点击窗中的按钮，实现复制表的命令，表的结构不改变，只复制表头。
命令该怎么写？
帮助中只查到了使用系统Syscmd.Table.Copy()，其它的命令没有查询到。
老师帮我下
[此贴子已经被作者于2017/4/11 15:30:29编辑过]
--  作者：有点色
--  发布时间：2017/4/11 15:52:00
--  

 1、foxtable没有提供这样的命令。

 

 2、如果要变通处理，代码这样写

 

Dim t As Table = Tables("表A")
t.SaveExcel("g:\\test.xls", t.name)
Dim ip As New Importer
ip.SourcePath = "g:\\test.xls" \'指定数据文件
ip.SourceTableName = t.name & "$" \'指定要导入的表
ip.NewTableName = "新表" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Filter = "1=2"
ip.Import()