Foxtable(狐表)用户栏目专家坐堂 → [求助]求组帮忙看看代码的错误


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

主题:[求助]求组帮忙看看代码的错误

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


加好友 发短信
等级:幼狐 帖子:118 积分:966 威望:0 精华:0 注册:2016/7/12 15:44:00
[求助]求组帮忙看看代码的错误  发帖心情 Post By:2018/8/21 14:47:00 [只看该作者]

 我是有退出报表的,但执行的时候弹错误显示我的“D:\照片上传\中转文件\中转.doc”报表路径被占用
我一直找不到办法解决这个问题,难道这个SHOW或者QUIT方法不管用嘛,我Adf2.SHOW ()和Adf2.QUIT ()都试过了
For LIE =0 To 26
                For HANG =0 To 2000
                    
                    dr("位置光标") = sheet(LIE,HANG).Text
                    If dr("位置光标")IsNot Nothing Then
                        
                        Dim tm2 As String = "D:\照片上传\中转文件\中转.doc"
                        Dim bgwjm2 As  String =  "D:\照片上传\中转文件\中转.doc"
                        Dim GBZ As String = dr("位置光标")
                        Dim wzgb = "{" & LIE & "," & HANG & "}"
                        
                        Dim adf2 As New WordReport(Tables("照片上传"),tm2,bgwjm2)
                        Adf2.Replace(WZGB, GBZ)
                        Adf2.Build()
                        Adf2.SHOW ()


                    End If
                Next
            Next


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

tm2 和 bgwjm2 不能是同一个路径

另外在循环里面Adf2.Build(),不是生成了26*2000个word文件了吗?那么这些文件也不能同名

 回到顶部