[求助]【已解决】用Foxtable向网页写入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以上代码运行后出现：

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

还是显示定义错误

试试，还不行我也没有办法了

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("webbrowser1").basecontrol

Dim trs = web.Document.Window.Frames("frm1").Document.GetElementsByTagName("tr")

For Each tr As object In trs

Dim id As String = tr.getAttribute("id")

If id > "" AndAlso id Like "tr*"

Dim idx As Integer = val(id.SubString(2))

Dim ip1 = web.Document.Window.Frames("frm1").Document.GetElementsByid("oldcjbzdm" & idx)

Dim xhw As String = ip1.Parent.innerText

msgbox("学号:" & xhw)

Dim dr As DataRow = DataTables("成绩表").Find("学号 = '" & xhw & "'")

If dr IsNot Nothing Then

Dim ip2 = web.Document.Window.Frames("frm1").Document.GetElementsByid("cj" & idx & "|0")

msgbox("平时成绩:" & ip2.GetAttribute("value"))

ip2.SetAttribute("value", dr("平时成绩"))

End If

提示：

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

是否可以，不用tr层去循环，直接从input层去循环？

GetElementsByid

改为

GetElementById

可以了，终于可以了。太棒了！！！！

十分感谢，后面我自己来处理！谢谢

总结：

最后用以下方式可将Foxtable中的成绩写入到网页中。

需根据不同网页分析网页结构，找准循环方式。

再次感谢蓝老师和甜老师的帮忙。
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("webbrowser1").basecontrol

Dim trs = web.Document.Window.Frames("frm1").Document.GetElementsByTagName("tr")

Dim Inputs = web.Document.Window.Frames("frm1").Document.GetElementsByTagName("input")

For Each tr As object In trs

Dim id As String = tr.getAttribute("id")

If id > "" AndAlso id Like "tr*"

Dim idx As Integer = val(id.SubString(2))

Dim ip1 = web.Document.Window.Frames("frm1").Document.GetElementById("oldcjbzdm" & idx)

Dim xhw As String = ip1.Parent.innerText

'msgbox("学号:" & xhw)

Dim dr As DataRow = DataTables("成绩表").Find("学号 = '" & xhw & "'")

If dr IsNot Nothing Then

Dim ip2 = web.Document.Window.Frames("frm1").Document.GetElementById("cj" & idx & "|0")

'msgbox("平时成绩:" & ip2.GetAttribute("value"))

ip2.SetAttribute("value", dr("平时成绩"))

Dim ip3 = web.Document.Window.Frames("frm1").Document.GetElementById("cj" & idx & "|1")

'msgbox("平时成绩:" & ip2.GetAttribute("value"))

ip3.SetAttribute("value", dr("期末考试"))

End If

For Each Input As object In Inputs

Input.focus() '焦点定位，模拟按键，触发写入值有效

主题：[求助]【已解决】用Foxtable向网页写入数据