以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现导出整个表和选定的行的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64988)
--  作者：jhq1989
--  发布时间：2015/3/6 16:07:00
--  如何实现导出整个表和选定的行的数据
如何编写代码实现上述功能
--  作者：有点甜
--  发布时间：2015/3/6 16:09:00
--  
 本来就是导出整个表的数据啊。
--  作者：有点甜
--  发布时间：2015/3/6 16:10:00
--  

要导出某个条件的行，就写代码

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "表A" \'指定导出表
    ex.FilePath = dlg.FileName \'指定目标文件
    ex.Format = "Excel2007" \'导出格式为Access 2007
    ex.Filter = "第二列 = \'222\'"
    ex.Export() \'开始导出
End If
--  作者：jhq1989
--  发布时间：2015/3/6 16:11:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "物料信息表" \'指定导出表
    ex.FilePath = dlg.FileName \'指定目标文件
    ex.Format = "Excel 2007" \'导出格式为Access 2007
    ex.Export() \'开始导出
    

End If
这代码导出来的只有表头啊
--  作者：Bin
--  发布时间：2015/3/6 16:13:00
--  
导出整个表 http://www.foxtable.com/help/topics/0683.htm

导出选定行可以用3个方式
1.用一个逻辑列作为复选框选定,然后参考上面帮助,把导出条件设置为 Filter="逻辑列=True"

3.遍历鼠标框中的选择行,导出参考帮助 http://www.foxtable.com/help/topics/1247.htm
Dim tbl As Table = Tables("员工")
For i as Integer = tbl.TopRow To tbl.BottomRow
--  作者：有点甜
--  发布时间：2015/3/6 16:17:00
--  
 回复4楼，你要把表的数据保存以后，才能导出数据啊。
--  作者：Bin
--  发布时间：2015/3/6 16:17:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=64987