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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 窗体加载的网页，如何屏蔽脚本运行错误？

共有2576人关注过本帖树形打印复制链接主题：[求助] 窗体加载的网页，如何屏蔽脚本运行错误？

Mikee

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：89 积分：947 威望：0 精华：0 注册：2017/8/7 14:36:00

[求助] 窗体加载的网页，如何屏蔽脚本运行错误？ 发帖心情

Post By：2018/5/21 23:11:00 [只看该作者]

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

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

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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/5/21 23:23:00 [只看该作者]

设置浏览器控件，窗口afterload

Dim webb = e.Form.Controls("WebBrowser1").BaseControl

webb.ScriptErrorsSuppressed = True '关闭脚本错误提示

mikee

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：89 积分：947 威望：0 精华：0 注册：2017/8/7 14:36:00

Post By：2018/5/22 9:02:00 [只看该作者]

多谢蓝老师。可以解决了。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：89 积分：947 威望：0 精华：0 注册：2017/8/7 14:36:00

Post By：2018/5/23 22:43:00 [只看该作者]

谢谢甜老师

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

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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/23 23:07:00 [只看该作者]

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

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

mikee

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：89 积分：947 威望：0 精华：0 注册：2017/8/7 14:36:00

Post By：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

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：89 积分：947 威望：0 精华：0 注册：2017/8/7 14:36:00

Post By：2018/5/24 13:11:00 [只看该作者]

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

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

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/24 14:44:00 [只看该作者]

改成

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

下一主题 >> << 上一主题

主题：[求助] 窗体加载的网页，如何屏蔽脚本运行错误？