主题：上报按钮代码，版主看看，谢谢

文本文件应该这样的：


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不完善，而是你不够"淡定"。

当在同一个路径多生成文件时，提示原来的表已经存在，如何实现覆盖生成?谢谢

Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.mdb" '设置筛选器
dlg.OverwritePrompt =True
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
Dim ex as New Exporter
ex.SourceTableName = e.Form.Controls("TextBox1").Value '指定导出表
ex.filepath = dlg.FileName '指定目标文件
ex.Export() '开始导出
MessageBox.Show("成功生成上报数据!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)  
End If

还是有问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:错误.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目143.table

各位版主帮帮忙

判断源目录有没有同名文件们，如果有，则删除之。


FileExists

判断指定的文件是否存在。

语法：

FileExists(File)

File: 要判断的文件

例如：

If FileSys.FileExists("c:\fox.jpg") Then
    Messagebox.Show("文件已经存在！","提示")
Else
    Messagebox.Show("文件不存在或已经被删除！","提示")
End If

DeleteFile

删除目录

语法

DeleteFile(File, showUI, recycle)

参数	说明
File	要删除的文件。
showUI	整数型，是否以直观方式跟踪操作的进度，可选值: 2: 只显示错误对话框，隐藏进度对话框 3: 显示进度对话框和所有错误对话框。
recycle	整数型，是否将删除的文件发送到回收站，可选值: 2: 永久删除文件 3: 将文件发送到回收站。

例如：

If FileSys.FileExists("c:\data\fox2.jpg") Then '如果指定的文件存在
    FileSys.DeleteFile("c:\data\fox2.jpg",2,2) '则彻底删除之
End If

　

 

Dim dlg As New SaveFileDialog
dlg.Filter= "上报文件|*.mdb"
dlg.OverwritePrompt = True
If dlg.ShowDialog = DialogResult.Ok Then
    Dim ex as New Exporter
    ex.SourceTableName = "调资基础数据"
    ex.NewTableName = "调资基础数据"

ex. PassWord = “TZX_GWY_JT_8888”
    ex.Format = "Access"
    ex.filepath =  dlg.filename

If FileSys.FileExists(dlg.filename) Then '如果指定的文件存在
    FileSys.DeleteFile(dlg.filename,2,2) '则彻底删除之
End If
    ex.Export() 
    MessageBox.Show("上报数据完成！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

对不？谢谢

测试一下就知道啊