密码：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
加好友 
发短信
Post By：2021/1/23 17:01:00 [只看该作者]
