以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  系统出现严重错误，不知道怎么解决！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105522)
--  作者：天蝉一线
--  发布时间：2017/8/21 16:36:00
--  系统出现严重错误，不知道怎么解决！
系统运行一段时间就出现这个图，
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170821163549.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170821163602.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170821163531.png
图片点击可在新窗口打开查看
不知道如何处理
--  作者：有点甜
--  发布时间：2017/8/21 16:50:00
--  

1、你项目有没有用到httprequest，也就是网页功能？ http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98104&skin=0

 

2、你代码里面有没有用到字典？ http://www.foxtable.com/webhelp/scr/1945.htm

 
--  作者：天蝉一下
--  发布时间：2017/8/21 17:19:00
--  
增加文件时用的
Dim info As new FileInfo(fname)
        Dim fp As String ="/Fundingapproval/" & spbh & "/" & FileSys.GetName(fname)
        If ftp2.Upload(fname,fp,True) = True Then  \'若成功上传


删除文件时用的
Dim fl As String = piv.SelectedItem
Dim fd As String=ProjectPath & "RemoteFiles/Fundingapproval/" & spbh & "/" & FileSys.GetName(fl)
If fl > "" Then
    If ftp2.FileExists(fl) Then
        piv.FTPclient.DeleteFile(fl)
    End If
    If Filesys.FileExists(fd) Then
        Filesys.DeleteFile(fd)
    End If
    Dim lst As New List(of String)
    lst = Tables("资金支付明细").Current.DataRow.Lines("附件")
     lst.Remove(fl)
    Tables("资金支付明细").Current.DataRow.Lines("附件") = lst
    Forms(ck).Controls("fjdz").value=r("附件")
End If
--  作者：有点甜
--  发布时间：2017/8/21 17:22:00
--  
你3楼贴的代码没问题。你加入msgbox定位哪一句代码报错？
--  作者：天蝉一下
--  发布时间：2017/8/21 18:00:00
--  
运行正常，没有报错
--  作者：有点甜
--  发布时间：2017/8/21 18:03:00
--  
以下是引用天蝉一下在2017/8/21 18:00:00的发言：
运行正常，没有报错

 

2楼呢？用到了什么？