Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将狐表的内容填充到网页表单？


  共有3332人关注过本帖树形打印复制链接

主题：如何将狐表的内容填充到网页表单？
帅哥哟，离线，有人找我吗？
南望
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：392 积分：3312 威望：0 精华：0 注册：2014/4/9 10:04:00 		如何将狐表的内容填充到网页表单？  发帖心情 Post By：2016/7/26 10:09:00 [只看该作者]

如何将狐表的内容填充到网页表单？有相关例子吗

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/26 10:15:00 [只看该作者]

 参考

 

Dim web = e.form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.baidu.com")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim pg = web.Document.GetElementById("kw")
pg.SetAttribute("Value", "foxtable")
 回到顶部
帅哥哟，离线，有人找我吗？
wh420
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00 		  发帖心情 Post By：2016/9/7 17:02:00 [只看该作者]

老师帮忙看看如果我想把狐表数据填充到网页的“纳税人识别号”、“电话” 、“纳税人名称”应该如何写？附件附上该网页的HTML代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:html.txt
 回到顶部
帅哥哟，离线，有人找我吗？
飞飞
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：621 积分：5130 威望：0 精华：1 注册：2014/8/7 6:56:00 		  发帖心情 Post By：2016/9/7 17:14:00 [只看该作者]

以下是引用wh420在2016/9/7 17:02:00的发言：
老师帮忙看看如果我想把狐表数据填充到网页的“纳税人识别号”、“电话” 、“纳税人名称”应该如何写？附件附上该网页的HTML代码
 下载信息  [文件大小：30.3 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:html.txt


已经点到这份儿上了，你还不会....图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/7 17:17:00 [只看该作者]

Dim web = e.form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.baidu.com")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("input")
For i As Integer = 0 To hec.Count - 1 '循环所有标签
    If hec(i).Name = "r1c2" Then
        hec(i).SetAttribute("Value", "纳税人识别号")
    ElseIf hec(i).Name = "r2c2"
        hec(i).SetAttribute("Value", "电话")
    ElseIf hec(i).Name = "r1c1"
        hec(i).SetAttribute("Value", "纳税人名称")
    End If
Next



        <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
          <tr>
            <td rowspan="4" align="left" bgcolor="#FFFFFF">购货方、接收劳务或服务方纳税人</td>
            <td align="left" nowrap bgcolor="#FFFFFF">纳税人识别号 <br></td>
            <td align="left" bgcolor="#FFFFFF"><input name="r1c2" type="text" size="40"></td>
            <td align="left"  bgcolor="#FFFFFF">电话</td>
            <td align="left" bgcolor="#FFFFFF"><input name="r2c2" type="text" size="35"></td>
          </tr>
          <tr>
            <td align="left" nowrap bgcolor="#FFFFFF">纳税人名称</td>
            <td align="left" bgcolor="#FFFFFF" colspan="3"><input name="r1c1" type="text" size="86" ></td>
          </tr>
          <tr>
            <td align="left" bgcolor="#FFFFFF"> 地址</td>
            <td align="left" bgcolor="#FFFFFF" colspan="3"><input name="r2c1" type="text" size="86"></td>
          </tr>
          <tr>
            <td align="left" nowrap bgcolor="#FFFFFF"> 银行名称</td>
            <td align="left" bgcolor="#FFFFFF"><input name="r3c1" type="text" size="40"></td>
            <td align="left" bgcolor="#FFFFFF" nowrap> 银行账户</td>
            <td align="left" bgcolor="#FFFFFF"><input name="r3c2" type="text" size="35"></td>
          </tr>
        </table>
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询