文本文件应该这样的：
Dim dlg As New SaveFileDialog
dlg.Filter= "上报文件|*.TXT"
dlg.OverwritePrompt = True
If dlg.ShowDialog = DialogResult.Ok Then
Dim ex as New Exporter
ex.SourceTableName = "枚举"
ex.NewTableName = FileSys.GetName(dlg.FileName)
ex.NewTableName = ex.NewTableName.SubsTring(0,ex.NewTableName.LastIndexOf("."))
ex.Format = "Delimited"
ex.filepath = FileSys.GetParentPath(dlg.filename)
ex.Export()
MessageBox.Show("上报数据完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
帮助说得很详细的，依葫芦画瓢就行：
FilePath
字符型，指定目标数据库文件名，含文件路径。
如果导出格式是dBASE或者文本文件，那么只需指定路径。
NewTableName
字符型，指定导出后的表的名称。
如果目标数据文件已经存在同名表，将不能导出。
对于dBASE和文本格式，用文件名代替表名，不含扩展名，如果目标文件已经存在，也不能导出
示例五
将订单表的数据导出为以逗号分割的文本文件：
Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "订单数据" '指定文件名，注意无须扩展名
ex.Export() '开始导出
执行之后，同时还会生成一个配置文件schema.ini，里面有新生成文本文件的信息，还包括各列的名称、类型、宽度。
不是foxtable不完善，而是你不够"淡定"。
[此贴子已经被作者于2009-7-21 10:37:01编辑过]
加好友 
发短信
Post By：2009/7/21 9:35:00 [显示全部帖子]
