主题：强退问题求助！

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
If tb.SelectedPage.Text = "报名登记汇总" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\报名登记汇总.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "中高级工资审" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\报名资格验审.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "中高级工考核" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\中高级工考核.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "技师高技资审" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\报名资格验审.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "技师高技理论" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\技师高技理论.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "技师高技实潜" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\技师高技实潜.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "上会评审汇总" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\参评汇总.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "证书编号汇总" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\证书编号汇总.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "地市公司统计" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\地市公司统计.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
ElseIf tb.SelectedPage.Text = "鉴定统计报表" Then
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "excel|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim Book As New XLS.Book(ProjectPath & "Attachments\鉴定统计报表.xls")
        Book.Build() '生成细节区
        Book.Save(dlg.FileName) '保存工作簿
        MessageBox.Show("保存成功" )
    End If
End If

1、上述是“导出”按钮代码，负责2个表的导出（在页面集合中，有几个页面是绑定其中1个表的副表），先前没什么数据的时候，貌似还正常，现在导入了数据，大概有10万来行，问题来了，点击没反应，最后强退，这是为什么？代码问题？

2、另外1个按钮也差不多的情况，只不过对应的是1个页面中的副表产生3个不同的EXCEL表，现在只能生成1个EXCEL表，还只能预览而不能存盘，代码如下：

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
If tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\参评汇总.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
ElseIf tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\评审投piao.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
ElseIf tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\投piao汇总.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(3)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
End If

 

请求版主指教！

做一个对应实例发上来，才能测试。

这实例......，我这水平实在太低，做不出什么对应实例，就发我做的半成品发上来吧！目前还有很多表代码没写入！

目前问题：1、“评审表预览”按钮点击后应该生成3张表，但现在只生成了1张；

              2、“导出”按钮点击后没反应，会强退；

              3、窗口点开后，目录树就全部加载了数据，而同样的目录树在我先前的老版本项目上是数据为空，要我点击加载全部数据才会；点击“导入”按钮导入新批次数据后，目录树上不会及时体现，而是要关闭窗口后再进入才能看到导入的新批次数据；

              4、在主窗口加了个“进度条”控件，在进度过程中显示“系统数据加载中，请稍候！”，项目启动完毕，“进度条”也进到100%，窗口“鉴定管理”自动开启，这个我学习了帮助文件，并在论坛上搜索了实例，还是没学会该怎么下手！

1、

 

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
If tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\参评汇总.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
End If
If tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\评审投piao.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(2)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
End If
If tb.SelectedPage.Text = "上会评审汇总" Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\投piao汇总.xls")
    Dim fl As String = ProjectPath & "Reports\上会评审.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(3)
    ShowAppWindow("上会评审汇总",2)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
End If

2、导出按钮我没问题。你是不是导出的数据超过了6万行？

 

3、你可以在afterLoad事件，控制加载，如

 

    DataTables("鉴定管理表").LoadFilter = "1=2"
    DataTables("鉴定管理表").Load()

 

如果导入后需要刷新目录树，那么，你把afterLoad事件的代码，也写到你的导入按钮后面

 

4、没必要这样做，在afterOpenProject直接把你需要的窗口打开即可（因为无法获取窗口、项目的启动进度的）

谢谢版主！导出的数据没超过6万行，就是几百行、1000来行也是没反应，大概2000行以上过会会强退；我自己再找找原因！另外我想请教下版主：我看狐友的贴子说导入有多快，几秒钟就OK，我这个项目是不是自身结构的问题，达不到那样，项止运行启动要很长时间，导入数据的时间不会很快，上了几千行要些时间，保存也要很长时间，这个跟我用EXCEL单纯比，那是相差很大！

还有补充一个问题：我加进度条的目的，是因为我最终发布后，启动项目后，想不显示狐表自带的菜单，只单纯显示“系统窗口”，如果我要进入数据查询、录入、编辑界面（“鉴定管理”）就要在主窗口上设个什么东东，以便进入。前面我是用了个条形码控件，觉得不美观就弃用了；因为项目发布后，可能会在不同大小屏幕的机子上运行，那么我怎么因定主窗口的大小，现在好象只能依附在狐表菜单下。

 

导出的问题，请加入数据后说明如何测试。

 

导入的问题，请把excel文件发上来，说明如何测试后出问题。

 

版主，这是我刚才试着导出1批4100多人的数据，等了半天出现如图所示弹窗！原来都是等半天后强退！

此主题相关图片如下：1544612423(1).png