[讨论]Excel报表格式设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]Excel报表格式设置

共有3088人关注过本帖树形打印复制链接主题：[讨论]Excel报表格式设置

sloyy

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13804 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/5/13 2:17:00 [只看该作者]

你够粗心的学籍卡.xls 少了个点怎么会找得到这个模板

monvzhilei

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/13 5:59:00 [只看该作者]

我在学籍卡.xls 加点以后，就出现如图所示对话框。点击关闭按钮，直接foxtable也关掉了。

此主题相关图片如下：18.png

monvzhilei

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/13 6:01:00 [只看该作者]

学籍卡xls 的话。倒是出得来报表。就是出现错误对话框。

学籍卡.xls 的话，则是直接退出foxtable了。

进程excel什么的。都是检查过，也没有的。

[此贴子已经被作者于2015/5/13 6:07:17编辑过]

monvzhilei

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/13 6:10:00 [只看该作者]

我把这个代码加载在 afterbuild事件里面。附截图

此主题相关图片如下：19.png

monvzhilei

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：201 积分：1386 威望：0 精华：0 注册：2015/4/14 17:39:00

Post By：2015/5/13 8:20:00 [只看该作者]

刚才在系统自带的casestudy里面的 excel报表.table 。测试了以下代码：

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)
Dim Rg As MSExcel.Range = Ws.Cells
'Rg.EntireColumn.AutoFit '自动调整列宽
'Rg.EntireRow.AutoFit '自动调整行高
'Rg.WrapText = True
rg.ShrinkToFit = True
App.Visible = True

结果发现整个foxtable无响应了。反复几次也是这样。