以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]SaveFileDialog的问题!求所以然~~~~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16001)

--  作者:gaoyong30000
--  发布时间:2012/1/29 20:52:00
--  [求助]SaveFileDialog的问题!求所以然~~~~~

 设置了一个导出excel的菜单按钮,click一开始设置成这样的

 

If Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 3 Or Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 4 Then
    Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" \'设置筛选器
    If dlg.ShowDialog = DialogResult.Ok And  Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 3 Then 

        Tables("现场检查").SaveExcel(dlg.FileName,"现场检查")
    ElseIf dlg.ShowDialog = DialogResult.Ok  and Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 4 Then
        Tables("销售意向客户进度管制").SaveExcel(dlg.FileName,"销售意向客户进度管制")
    End If
End If

 

结果导出窗口

 
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 

关闭按钮,保存,取消按钮  均需要按2次才能起效

 


 

 

后来单独建了个项目查错,代码改成了下面这样 就没问题了,单击即可起效

 

If Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 3 Or Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 4 Then
    Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" \'设置筛选器
    If Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 3 AndAlso dlg.ShowDialog = DialogResult.Ok Then 

        Tables("现场检查").SaveExcel(dlg.FileName,"现场检查")
    ElseIf Forms("绩效考核主界面").Controls("TabControl1").SelectedIndex = 4 AndAlso dlg.ShowDialog = DialogResult.Ok Then
        Tables("销售意向客户进度管制").SaveExcel(dlg.FileName,"销售意向客户进度管制")
    End If
End If

 

虽然明白个大概,但是说不出个所以然 求解释。。。

 

出错项目如下

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

[此贴子已经被作者于2012-1-29 20:55:52编辑过]

--  作者:gaoyong30000
--  发布时间:2012/1/30 19:43:00
--  
有人知道原因吗?