设置了一个导出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