程序启动又出问题了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

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

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

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

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

请教版主，如何解决。

[此贴子已经被作者于2017/1/13 8:41:41编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:原油价格自动获取.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 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("%", ""))

fdr("更新时间") = Date.Now

Else

fdr(Cols(j)) = tdelems(j).Innertext

fdr("更新时间") = Date.Now

End If

t.save

Tables("国际市场原油价格表").Sort = "发布日期 DESC"

MessageBox.show("数据更新完毕!")

发布后的项目点击该按钮有如下提示，可能是什么问题？

.NET Framework 版本：2.0.50727.6387

Foxtable 版本：2016.7.29.1

错误所在事件：窗口,国际市场原油价格窗口,Button1,Click

详细错误信息：

“5”的值对于“index”无效。“index”应介于 0 和 1 之间。

参数名: index

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