以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 狐表数据 填入网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141202)

--  作者:zcgmxf
--  发布时间:2019/9/24 7:27:00
--  [求助] 狐表数据 填入网页
老师,如何将狐表的数据填入某个网页?谢谢!
--  作者:有点蓝
--  发布时间:2019/9/24 8:33:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808
--  作者:zcgmxf
--  发布时间:2019/11/6 7:29:00
--  
老师,本人学艺不精,请告诉我如何将 我们foxtable 表中的姓名、性别填入 VPn 网页就行了,其余的自己学习。谢谢!

附:VPN网页源码

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:职业健康检查个案源代码.txt



--  作者:有点蓝
--  发布时间:2019/11/6 11:06:00
--  
比如全局代码

Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    Dim web As System.Windows.Forms.WebBrowser = sender \'把触发该事件的Sender转换为WebBrowser
    If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete\'由于加载完成事件会触发多次,分别为页面数据加载完成,DOM树加载完成.所以这里要判断一下.确保所有东西都加载完成再执行下面的操作
        web.Document.GetElementById("physical_workerName").SetAttribute("Value",tables("表A").current("姓名")) 
        web.Document.GetElementById("physical_workerSex").innertext = tables("表A").current("性别")
    End If
End Sub