以文本方式查看主题

-  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=142769)
--  作者：hbhb
--  发布时间：2019/11/5 17:50:00
--  如何导出临时表
大师：请问如何把SQL语句生成的临时表导出为文本文件？
--  作者：有点蓝
--  发布时间：2019/11/5 20:31:00
--  
方法1、绑定到窗口表，然后按正常方式导出：http://www.foxtable.com/webhelp/topics/0683.htm
用法和这里一样反过来就可以了：http://www.foxtable.com/webhelp/topics/2629.htm
--  作者：hbhb
--  发布时间：2019/11/5 22:37:00
--  
方法一可以吗？例子
--  作者：有点蓝
--  发布时间：2019/11/5 22:46:00
--  
http://www.foxtable.com/webhelp/topics/1778.htm
--  作者：hbhb
--  发布时间：2019/11/5 22:56:00
--  
我说的是SQL命令直接生成的数据集表
--  作者：有点蓝
--  发布时间：2019/11/5 23:02:00
--  
一样
--  作者：hbhb
--  发布时间：2019/11/6 9:02:00
--  
Dim c_m——d As New S——QLCommand
Dim dt As DataTable
c_md.C
c_md.CommandText = "S__ELECT * From {GLVch}"
dt = c_md.ExecuteReader()




Dim tb As WinForm.Table = e.Form.Controls("Table1")


tb.Table.DataSource = dt

MessageBox.Show(tb.Table.name)
MessageBox.Show(tb.Table.DataTable.name)



Dim ex As New Exporter
MessageBox.Show(0)
ex.SourceTableName = tb.Table.name \'指定导出表
MessageBox.Show(1)
ex.FilePath = "d:\\测试\\" \'指定目标文件路径
MessageBox.Show(2)
ex.Format = "Fixed" \'导出格式为固定宽度的文本文件
MessageBox.Show(3)
ex.NewTableName = "导出文本1" \'指定文件名,注意无须扩展名
MessageBox.Show(4)
ex.Export() \'开始导出
MessageBox.Show(5)
--  作者：hbhb
--  发布时间：2019/11/6 9:03:00
--  
这样写为什么不行？
--  作者：有点蓝
--  发布时间：2019/11/6 9:15:00
--  
我测试没有问题
--  作者：hbhb
--  发布时间：2019/11/6 9:26:00
--  
运行没有问题，但文件为空，没有数据。