Foxtable(狐表)用户栏目专家坐堂 → 请指教


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

主题:请指教

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


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/30 20:35:00 [只看该作者]

是否存在这个文件?msgbox((ProjectPath & "Attachments\晨午检上报表.xlsx")

项目文件夹里是否存在这个目录“晨午检报表”,没有就手工添加

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


加好友 发短信
等级:五尾狐 帖子:1179 积分:9476 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/6/30 21:04:00 [只看该作者]

真是无奈啊,就这么个代码为什么就不行呢?文件也有,没什么错呀。退出是还显示什么堆栈不能。。。

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\晨午检上报表.xlsx")
Dim fl As String = ProjectPath & "晨午检报表\" & "晨午检上报表" & Tables("晨午检").current("报告日期") & ".xlsx"

Dim s As String
For Each r As Row In Tables("晨午检").GetCheckedRows
    s =s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("晨午检").Filter = "[_Identify] in (" & s & ")"
Book.Build() '生成细节区

Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()


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


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/30 21:47:00 [只看该作者]

请上传实例说明

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


加好友 发短信
等级:五尾狐 帖子:1179 积分:9476 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/7/1 8:28:00 [只看该作者]

后缀改为.xls后又显示:

.NET Framework 版本:4.0.30319.1026
Foxtable 版本:2020.5.29.8
错误所在事件:Build
详细错误信息:
打开存储文件失败。

 

 

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\晨午检上报表.xlsx")  
Dim fl As String = ProjectPath & "晨午检报表\" & "晨午检上报表" & Tables("晨午检").current("报告日期") & ".xlsx"    

Dim s As String
For Each r As Row In Tables("晨午检").GetCheckedRows
    s =s & "," & r("_Identify")
Next
s = s.Trim(",")
Tables("晨午检").Filter = "[_Identify] in (" & s & ")"
Book.Build() '生成细节区

Dim Proc As New Process '打开工作簿
Proc.File = fl
'Proc.Verb = "Print" '指定动作
Proc.Start()


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


加好友 发短信
等级:超级版主 帖子:52879 积分:268032 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/1 8:39:00 [只看该作者]

打开存储文件失败。就是不存在这个文件!

 回到顶部
总数 15 上一页 1 2