Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示问题


  共有7891人关注过本帖树形打印复制链接

主题：提示问题
帅哥哟，离线，有人找我吗？
老有所乐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		提示问题  发帖心情 Post By：2013/1/5 8:44:00 [只看该作者]

下面代码是一个导出Xls 按钮，导出正常，会提示“导出结束”，但是如果在导出过程中，当出现导出“另存为”窗口时，不想将导出文件存放此路径，在窗口文件名框中没有输入文件名时，点击“另存为”窗口中的“取消”按钮，还是提示“导出结束”，我想在此应该出现“已取消导出”的提示，代码应该如何修改。谢谢！

Dim i As  String = e.Form.Controls("comboBox3").value '定义i变量存储表名
If i =""
   MessageBox.Show("请输入要导出的表名!", "提示")
    Return 
End If

Tables( i ).Cols("A").Visible = False  '隐藏表名等于combobox3组合框表的A列(逻辑列)  

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables( i ).SaveExcel(dlg.FileName, i)  '保存文件
End If
MessageBox.Show("导出结束!", "提示")
'下面代码是打开刚导出的文件
 msgbox(dlg.FileName)
[此贴子已经被作者于2013-1-5 8:46:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2013/1/5 8:55:00 [只看该作者]

 这样。

Dim i As  String = e.Form.Controls("comboBox3").value '定义i变量存储表名
If i = "" Then
    MessageBox.Show("请输入要导出的表名!", "提示")
    Return
End If

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables( i ).Cols("A").Visible = False  '隐藏表名等于combobox3组合框表的A列(逻辑列)
    Tables( i ).SaveExcel(dlg.FileName, i)  '保存文件
    MessageBox.Show("导出结束!", "提示")
    '下面代码是打开刚导出的文件
    msgbox(dlg.FileName)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
老有所乐
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00 		  发帖心情 Post By：2013/1/5 11:37:00 [只看该作者]

谢谢林总！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询