Foxtable(狐表)用户栏目专家坐堂 → 强退问题求助!


  共有1826人关注过本帖树形打印复制链接

主题:强退问题求助!

帅哥哟,离线,有人找我吗?
lisheng1971
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
强退问题求助!  发帖心情 Post By:2018/12/12 10:01:00 [只看该作者]

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

 

请求版主指教!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/12 10:41:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng1971
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/12/12 12:39:00 [只看该作者]

图片点击可在新窗口打开查看这实例......,我这水平实在太低,做不出什么对应实例,就发我做的半成品发上来吧!目前还有很多表代码没写入!

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

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

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

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


[此贴子已经被作者于2018/12/13 0:47:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/12 15:04:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/12 15:13:00 [只看该作者]

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

 

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

 

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

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
lisheng1971
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/12/12 16:02:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng1971
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/12/12 16:12:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/12 16:32:00 [只看该作者]

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

 

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
lisheng1971
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/12/12 19:02:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
lisheng1971
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1687 威望:0 精华:0 注册:2016/4/14 9:45:00
  发帖心情 Post By:2018/12/12 19:03:00 [只看该作者]


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

 回到顶部
总数 18 1 2 下一页