以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于导出功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39738)
--  作者：ljtao888
--  发布时间：2013/8/31 13:23:00
--  关于导出功能

Dim dlg As new SaveFileDialog
dlg.Filter="excel文件|*.xls"
Dim ex As new  Exporter
If dlg.ShowDialog = DialogResult.OK Then
    ex.SourceTableName="物料信息"
    ex.FilePath=dlg.FileName
    ex.Format="excel"
    ex.Export()
End If

 

以上代码问题：

   如果文件已存在，会自动弹出是否复盖，点确定会提示物料信息已存在，怎么处理啊～～
--  作者：Bin
--  发布时间：2013/8/31 13:48:00
--  
判断一下是否存在这个文件http://www.foxtable.com/help/topics/0337.htm
--  作者：ljtao888
--  发布时间：2013/8/31 14:40:00
--  

不行的，因为文件选择框本身会弹出是否复盖，这会误导的，而且要是用户点取消呢

 
--  作者：Bin
--  发布时间：2013/8/31 14:42:00
--  
你好,导出之前你就先认为弹出对话框判断是否覆盖,取消就不执行下面的代码了.

如果用户点了确定,那么再执行存在则删除的一系列步骤.
--  作者：ljtao888
--  发布时间：2013/8/31 14:43:00
--  

Dim dlg As new SaveFileDialog
dlg.Filter="excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    If FileSys.FileExists(dlg.FileName) Then
        FileSys.DeleteFile(dlg.FileName)
    End If
    Dim ex As new  Exporter
    ex.Format="excel"
    ex.SourceTableName="物料信息"
    ex.FilePath=dlg.FileName
    ex.Export()
End If

这样不理想的

 
--  作者：Bin
--  发布时间：2013/8/31 14:43:00
--  
关于弹出确认框 http://www.foxtable.com/help/topics/0326.htm
--  作者：ljtao888
--  发布时间：2013/8/31 14:56:00
--  
执行时机呢，执行时机在哪，麻烦您改下我上面的代码我试下～
--  作者：Bin
--  发布时间：2013/8/31 15:04:00
--  
你好,取消了就不会执行了.你5楼代码应该是没问题的.