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

 

请认认真真看啊。用F12调试工具，拷贝全部的代码，粘贴到txt里面发上来。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:desktop.zip

去拷贝 dom 资源管理器 里面的代码啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码.txt

尝试

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
output.show(web.Document.Window.Frames("frm1").Document.body.innerhtml)
Dim Inputs = web.Document.Window.Frames("frm1").Document.GetElementsByTagName("input")
For Each Input As object In Inputs
msgbox(input.id)
    If Input.id = "cj1|0" Then
        Input.SetAttribute("value", "10")
    ElseIf input.id = "cj1|1"
        Input.SetAttribute("value", "20")
    End If
Next

1、你先做好直接赋值的功能，再想办法改成从表格提取数据填入；

 

先做好录入一条数据的功能以后，再去想如何循环录入。

 

2、先要让你的网页文本框获取焦点，如

 

Input.focus();

 

然后再模拟按键，如 http://www.foxtable.com/webhelp/topics/0354.htm

 

 

甜老师，直接赋值的功能已经完成，但是由于对html语言不懂，我始终找不到网页端“学号”的位置并取值。

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
output.show(web.Document.Window.Frames("frm1").Document.body.innerhtml)
Dim Inputs = web.Document.Window.Frames("frm1").Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If input.getAttribute("name") = "xsdm0" then

        msgbox(input.value)

    End If

    If Input.id = "cj1|0" Then
        Input.SetAttribute("value", "10")
    ElseIf input.id = "cj1|1"
        Input.SetAttribute("value", "20")
    End If
Next

GetElementsByTagName