- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 当前单据导出 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160180)
-- 发布时间：2021/1/23 17:01:00
-- 当前单据导出
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:小区车辆管理（修改后没问题了）.foxdb |
密码：888888
月租收费窗口菜单栏中的导出按钮按下后已弹出窗口了，下拉按钮不消失，
此主题相关图片如下：012.png
其它下拉按钮没问题，怎么就它不行？另导出后打开文件报错。
此主题相关图片如下：011.png
Select Case e.StripItem.Name
Case "导出" \'导出代码
Dim dlg As New SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "月租收费_Table1" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Filter = "[日期] = \'" & e.Form.Controls("rq").text & "\'And [单号] = \'" & e.Form.Controls("dh").text & "\'" \'指定导出条件
ex.Export() \'开始导出
End If
Case "批量勾选住户" \'保存代码
Forms("批量勾选").Open()
End Select
-- 发布时间：2021/1/23 17:06:00
--
1、http://www.foxtable.com/webhelp/topics/3220.htm
- HideDropDown
关闭菜单项目所在的下拉菜单。
例如希望单击某菜单项目能显示一个模式窗口，而这个菜单项目并非顶层项目，通常应该这样编写代码：
e.StripItem.HideDropDown()
Forms("窗口1").Show()
-- 发布时间：2021/1/23 17:32:00
--
导出数据我已经写了代码了，报错，我想点击导出按钮弹出选择保存窗口，确定后导出excel数据，现在excel导出了，打开时报错。
[此贴子已经被作者于2021/1/23 22:08:29编辑过]
-- 发布时间：2021/1/23 17:36:00
--
http://www.foxtable.com/webhelp/topics/0683.htm，请认真看帮助是怎么用的，把帮助每一个字都仔细看一看
-- 发布时间：2021/1/23 17:41:00
--
我已经看过了，帮助里
Dim dlg As New
SaveFileDialog
\'定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
这代码的导出格式不符，我改为excel，我要的是这种弹出窗口自定地方导出的方式。
[此贴子已经被作者于2021/1/23 17:53:35编辑过]
-- 发布时间：2021/1/23 17:44:00
--
看过了？！！！！！！！！！！！
-- 发布时间：2021/1/23 17:50:00
--
我不看过怎么知道帮助里的代码有什么效果！
-- 发布时间：2021/1/23 17:52:00
--
Dim dlg As New SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "月租收费_Table1" \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Filter = "[日期] = \'" & e.Form.Controls("rq").text & "\'And [单号] = \'" & e.Form.Controls("dh").text & "\'" \'指定导出条件
ex.Export() \'开始导出
End If
这代码应是导出格式有问题，我不知怎么弄！
-- 发布时间：2021/1/23 21:00:00
--
导出没问题了。
\'四.导出
Select Case e.StripItem.Name
Case "导出" \'导出代码
e.StripItem.HideDropDown()
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("月租收费_Table1").SaveExcel(dlg.FileName, "月租收费") \'保存文件
End If
Case "批量勾选住户" \'保存代码
Forms("批量勾选").Open()
End Select
-- 发布时间：2021/1/24 20:39:00
--
我还是有疑问：看过了？！！！！！！！！！！！
里面这么多实例，既然要导出execl，为什么不看哪个实例是导出execl的，帮助几乎每一句代码后面都有说明？而一直盯着导出access的用法不放