以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求组帮忙看看代码的错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123698)
--  作者：527383691
--  发布时间：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
--  作者：有点蓝
--  发布时间：2018/8/21 15:00:00
--  
tm2 和 bgwjm2 不能是同一个路径

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