- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 程序启动又出问题了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95204)
-- 发布时间：2017/1/13 8:15:00
-- 程序启动又出问题了
昨天正常使用，没有任何错误提示，下午快下班的时候再次打开项目的时候，提示一个本地mdb数据源错误，但是该数据源的存放路径及代码都没有任何改动
此主题相关图片如下：1.png
忽略错误之后，发现程序没有加载网络用户源，只有三个默认的本地用户，按住Ctrl键启动，进程直接关闭。
此主题相关图片如下：3.png
此主题相关图片如下：2.png
也就是说，无法打开项目文件了。
删除bin问题仍然存在，Foxtable已经卸载后重装，问题依旧。
请教版主，如何解决。
[此贴子已经被作者于2017/1/13 8:41:41编辑过]
-- 发布时间：2017/1/13 8:42:00
--
1、查看数据源是否还存在，或者是只读的
2、如果按住ctrl打不开，可能项目损坏，联系客服看看能不能修复
-- 发布时间：2017/1/13 9:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:原油价格自动获取.foxdb |
蓝版主，就像这个项目，设置有计划，从窗口开启自动刷新数据的功能，计划执行之后，正常关闭项目，然后电脑会弹出进程关闭的提示，不知何故。
此主题相关图片如下：qq截图20170113090222.png
-- 发布时间：2017/1/13 9:56:00
--
你电脑或者加密狗有问题，我测试正常。请重启你的电脑测试。
-- 发布时间：2017/1/13 12:58:00
--
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
Next
Next
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
-- 发布时间：2017/1/13 14:40:00
--
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