主题：程序启动又出问题了

昨天正常使用，没有任何错误提示，下午快下班的时候再次打开项目的时候，提示一个本地mdb数据源错误，但是该数据源的存放路径及代码都没有任何改动

 

此主题相关图片如下：1.png

忽略错误之后，发现程序没有加载网络用户源，只有三个默认的本地用户，按住Ctrl键启动，进程直接关闭。

 

 
此主题相关图片如下：3.png

 

此主题相关图片如下：2.png

 

也就是说，无法打开项目文件了。

 

删除bin问题仍然存在，Foxtable已经卸载后重装，问题依旧。

 

请教版主，如何解决。

1、查看数据源是否还存在，或者是只读的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:原油价格自动获取.foxdb

 

蓝版主，就像这个项目，设置有计划，从窗口开启自动刷新数据的功能，计划执行之后，正常关闭项目，然后电脑会弹出进程关闭的提示，不知何故。 

 

此主题相关图片如下：qq截图20170113090222.png

 你电脑或者加密狗有问题，我测试正常。请重启你的电脑测试。

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://youjia.chemcp.com/YuanYouJiaGe.asp")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim Cols() As String = { "名称","价格","涨跌额","涨跌幅","发布日期" }
Dim ts = web.Document.GetElementsByTagName("table")
If ts.count <= 5 Then
    msgbox("没查到,请检查你网络设置")
Else
    Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
    Dim t As Table = Tables("国际市场原油价格表")
    For i As Integer = 1 To elems.count-1
        Dim tdelems As object =  elems(i).GetElementsByTagName("td")
        Dim fdr As DataRow = t.DataTable.Find("名称 = '" & tdelems(0).Innertext & "' and 发布日期 = #" & tdelems(4).Innertext & "#")
        If fdr Is Nothing Then
            fdr = t.DataTable.AddNew
        End If
        For j As Integer = 0 To Cols.length-1
            If t.Cols(j).IsNumeric Then
                fdr(Cols(j)) = val(tdelems(j).Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
            Else
                fdr(Cols(j)) = tdelems(j).Innertext
            End If
        Next
        fdr("更新时间") = Date.Now
    Next
    t.save
    Tables("国际市场原油价格表").Sort = "发布日期 DESC"
    MessageBox.show("数据更新完毕!")
End If