以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口出现流不支持写入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63081)

--  作者:anxue
--  发布时间:2015/1/13 16:49:00
--  [求助]窗口出现流不支持写入

图片点击可在新窗口打开查看此主题相关图片如下:liu.jpg
图片点击可在新窗口打开查看


窗口出现流不支持写入
打开窗口按钮出现的,第二次就没事了,为什么呢?

--  作者:Bin
--  发布时间:2015/1/13 16:50:00
--  
代码发出来看看
--  作者:anxue
--  发布时间:2015/1/13 16:58:00
--  
DataTables.Save

DataTables("维修汇总1").Load


Dim Book As New XLS.Book(ProjectPath & "Attachments\\维修汇总.xlsx") \'打开模板
Dim fl As String = ProjectPath & "Reports\\维修汇总.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(4,7).Value = "<单号 = \'" & Tables("维修单").current("单号") & "\'>"
Book.Build() \'生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()



打印汇总表的,怕有的数据不正确就刷新下

--  作者:Bin
--  发布时间:2015/1/13 17:00:00
--  
奇怪,上个例子看看.



--  作者:anxue
--  发布时间:2015/1/13 17:03:00
--  
我在试试
--  作者:有点甜
--  发布时间:2015/1/13 17:04:00
--  

 分别排错,先看是否这两句代码的问题

 

DataTables.Save

DataTables("维修汇总1").Load

--  作者:playmal
--  发布时间:2017/10/18 6:20:00
--  
出现同样问题,代码:Dim Book As New XLS.Book(ProjectPath & "Attachments\\点检表.xlsx")
Dim fl As String = ProjectPath & "Reports\\点检表.xlsx"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
点第二次就好了。为什么

--  作者:playmal
--  发布时间:2017/10/18 7:10:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:有关调用实时.zip



--  作者:有点甜
--  发布时间:2017/10/18 8:47:00
--  

流不支持写入是权限问题。你对应的文件夹,你没有写入(创建、复制、修改)的权限。

 

你换一个文件夹试试。

[此贴子已经被作者于2017/10/18 8:47:14编辑过]

--  作者:playmal
--  发布时间:2017/10/18 9:02:00
--  
是完全控制的,没有你说的没有写入权限问题