Foxtable(狐表) → 用户栏目 → 专家坐堂 → 部分电脑运行出现闪退


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

主题：部分电脑运行出现闪退
帅哥哟，离线，有人找我吗？
z769036165
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00 		部分电脑运行出现闪退  发帖心情 Post By：2021/11/29 15:43:00 [显示全部帖子]

发布后的程序有些电脑CPU在5%以下，有部分电脑出现CPU达15%占用，内存在300M左右，CPU占用过高，就出现闪退了，这个是.net版本的问题还是哪地方存在问题呢？

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/11/29 15:51:00 [显示全部帖子]

那很奇怪，像这个要处理100行，我分开处理，如每次处理5行，就没问题，然后分20次，就正常执行完毕了，如果有死循环，那应该分开执行也会有影响啊！

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/12/13 13:57:00 [显示全部帖子]

For  Each dr As DataRow In qg.DataRows    '遍历文件夹内单号
        w = qc.Find("单号 = '" &  dr("单号") & "'")   '在指定表中判断是否存在该单号
        If w IsNot Nothing Then   ’如果存在
            w("本地地址") = dr("本地位置")    '在指定表中写入本地地址
            Dim ifo As new FileInfo(w("本地地址"))   

            If FileSys.DirectoryExists("\\" & ip & "\单号文件") Then   '如果共享文件路径存在
                If FileSys.DirectoryExists("\\" & ip & "\单号文件\" & MID(w("单号"),6,4)) Then  '判断单号指定的年份文件夹是否存在
                    FileSys.CopyFile(w("本地地址"),"\\" & ip & "\单号文件\" & MID(w("单号"),6,4) & "\" & w("简称") & w("单号")  & ifo.Extension,True)  ’复制本地文件到共享地址
                    w("存档状态") = "已存档"
                    w("共享地址") = "\\" & ip & "\单号文件\" & MID(w("单号"),6,4) & "\" & w("简称") &  w("单号")  & ifo.Extension
                Else
                    FileSys.CreateDirectory("\\" & ip & "\单号文件\" & MID(w("单号"),6,4))
                    FileSys.CopyFile(w("本地地址"),"\\" & ip & "\单号文件\" & MID(w("单号"),6,4) & "\" &  w("简称") & w("单号")  & ifo.Extension,True)
                    w("存档状态") = "已存档"
                    w("共享地址") = "\\" & ip & "\单号文件\" & MID(w("单号"),6,4) & "\" &  w("简称") & w("单号")  & ifo.Extension
                End If
            Else
                w("存档状态") = "未存档"
            End If
        End If
    Next

这个代码出现的闪退，发现问题出现IP上面，之前定义的 Dim IP As String = "192.168.3.10" 这样不闪退
但是近期这个共享的地址存储不够了，换成另外一个地址
Dim IP As String = "192.168.3.11\hhdh$\管理台账 在 指定 (192.168.3.60) 上"，结果发现，开始前几个单号都能正常，大概第3~4个开始就直接退了
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/12/13 14:03:00 [显示全部帖子]

用MessageBox.Show排查是在这个地方的代码运行出现闪退的，主要问题是如果有异常应该弹出报错框，不应该直接闪退啊！

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：766 积分：5491 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2021/12/24 16:51:00 [显示全部帖子]

我ip改回原来的也发现报错

Dim ip As String = "192.168.1.2"
For  Each dr As DataRow In DataTables("文件表").DataRows    '遍历文件文件夹订单表
    w = DataTables("单号表").Find("单号 = '" &  dr("单号") & "'")
    If w IsNot Nothing Then
        w("状况") = "已存档"
        w("本地地址") = dr("文件位置").Replace("文件","文件\文件历史")
        Dim ifo As new FileInfo(w("本地地址"))
        FileSys.MoveFile(dr("文件位置"),w("本地地址"),True)
        res = Functions.Execute("ftp上传",w("本地地址"),"\文件\2112\" & w("单号") & ifo.Extension)
        If res = 1 Then
            w("文件存档状态") = "已存档"
            w("共享地址") = "\\" & ip & "\文件\2112\" & w("单号") & ifo.Extension
        Else
            w("文件存档状态") = "未存档"
        End If
    End If
Next
然后我把上传改成用ftp上传了，发现如果上传1~2个文件，就正常运行，如果超过就直接闪退
我用try判断没用，不弹出错误，也是直接退
然后用MessageBox判断也不行，不弹出判断，直接退。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 5 次数据查询