以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  保存文件为什么出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11027)
--  作者：lpxjw_zyl
--  发布时间：2011/7/4 21:49:00
--  保存文件为什么出错
Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name \'指定导出表
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "数据库格式|*.dbase" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    ex.FilePath =  dlg.FileName
    MessageBox.Show("保存在:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
ex.Format = "dbase" \'导出格式
ex.NewTableName =  CurrentTable.name \'指定文件名,注意无须扩展名
ex.Export() \'开始导出
--  作者：lpxjw_zyl
--  发布时间：2011/7/4 22:02:00
--  

导出电子表格能解决

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name \'指定导出表
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    ex.FilePath =  dlg.FileName
    MessageBox.Show("保存在:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
ex.Format = "Excel" \'导出格式为Excel
ex.NewTableName =  CurrentTable.name \'指定文件名,注意无须扩展名
ex.Export() \'开始导出
--  作者：lpxjw_zyl
--  发布时间：2011/7/4 22:13:00
--  

这样可以导出DBF文件格式　文件

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name \'指定导出表
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    ex.FilePath =  dlg.SelectedPath
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    ex.Format = "dbase" \'导出格式

    ex.NewTableName =  CurrentTable.name \'指定文件名,注意无须扩展名
    ex.Export() \'开始导出
End If
--  作者：czy
--  发布时间：2011/7/4 23:04:00
--  

 一楼出错是肯定的，因为SaveFileDialog的FileName是包含文件名的。

而FolderBrowserDialog的SelectedPath只是一个目录名称。
--  作者：czy
--  发布时间：2011/7/4 23:07:00
--  

另外一楼也很矛盾，既手工输入文件名，又指定文件名。

 

如果用SaveFileDialog ，这样好像也行。

 

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name \'指定导出表
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "数据库格式|*.dbase" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    ex.FilePath =  FileSys.GetFileInfo(dlg.FileName).DirectoryName \'保存路径
    MessageBox.Show("保存在:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
ex.Format = "dbase" \'导出格式
ex.NewTableName = FileSys.GetFileInfo(dlg.FileName).Name.Replace(".dbase","") \'指定文件名,注意无须扩展名
ex.Export() \'开始导出