专家坐堂-[求助] 窗体加载的网页，如何屏蔽脚本运行错误？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 窗体加载的网页，如何屏蔽脚本运行错误？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119273)

--  作者：Mikee
--  发布时间：2018/5/21 23:11:00
--  [求助] 窗体加载的网页，如何屏蔽脚本运行错误？

项目启动的时候，打开窗体就出现下图的错误，取消不影响使用，请问是否可以屏蔽不显示该错误？

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

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

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

--  作者：有点蓝
--  发布时间：2018/5/21 23:23:00
--
设置浏览器控件，窗口afterload

Dim webb  = e.Form.Controls("WebBrowser1").BaseControl
webb.ScriptErrorsSuppressed = True \'关闭脚本错误提示

--  作者：mikee
--  发布时间：2018/5/22 9:02:00
--
多谢蓝老师。可以解决了。

--  作者：有点甜
--  发布时间：2018/5/22 9:11:00
--

以下是引用mikee在2018/5/22 9:02:00的发言：
多谢蓝老师。可以解决了。

尽量使修改内核

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84931&skin=0

--  作者：Mikee
--  发布时间：2018/5/23 22:43:00
--
谢谢甜老师

继续请教一个问题，网页上的Checkbox，导入到Foxtable的外部表中（Access数据库）都是空白，是什么原因呢？

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

--  作者：有点甜
--  发布时间：2018/5/23 23:07:00
--

贴出你写的代码，或者说明你是如何导入数据的。

或者做一个例子发上来说明。

--  作者：mikee
--  发布时间：2018/5/24 12:21:00
--
甜老师，请指导！

网页是公司账号，可能不一定能访问。不知道能不能参考，谢谢
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.zip

以下内容为程序代码:

1 Dim web As New System.Windows.Forms.WebBrowser()
2 web.Navigate("https://kodakalaris.my.salesforce.com/00O16000007eXrD")
3 Do Until web.ReadyState = 4
4 Application.DoEvents
5 Loop
6
7 \'取数据
8 Dim Cols() As String = { "第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列","第十一列","第十二列","第十三列","第十四列"}
9 Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
10 Dim m As Integer = 0
11 For Each elem As object In elems
12 Dim i As Integer = -1
13
14 m = m + 1
15 If m ＞ 1 Then
16 Tables("临时表").AddNew
17 End If
18
19 Dim tdelems As object = elem.GetElementsByTagName("td")
20 For Each tdelem As object In tdelems
21 i = i + 1
22 Tables("临时表").Current(Cols(i)) = tdelem.Innertext
23 Next
24 Next
25 Tables("临时表").save

--  作者：有点甜
--  发布时间：2018/5/24 12:27:00
--

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://kodakalaris.my.salesforce.com/00O16000007eXrD")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

\'取数据
Dim Cols() As String = { "第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列","第十一列","第十二列","第十三列","第十四列"}
Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
    Dim i As Integer = -1

    m = m + 1
    If m > 1 Then
        Tables("临时表").AddNew
    End If

    Dim tdelems As object = elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        i = i + 1
        If Cols(i) = "第三列" OrElse Cols(i) = "第十列" Then
            Tables("临时表").Current(Cols(i)) = tdelem.innerHTML
            \'    Tables("临时表").Current(Cols(i)) = tdelem.getattribute("value")
        Else
            Tables("临时表").Current(Cols(i)) = tdelem.Innertext
        End If
    Next
Next
Tables("临时表").save

--  作者：mikee
--  发布时间：2018/5/24 13:11:00
--

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

报错如图片所示，我应该取Title的值，然后判断 TRUE 或者FALSE，然后再赋值，对吧？有没有可能直接取值的方法？

--  作者：有点甜
--  发布时间：2018/5/24 14:44:00
--

改成

Tables("临时表").Current(Cols(i)) = tdelem.getattribute("Title")